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WONDER 


AMSTRAD 


SPEEDY WONDER... c’est la puissance et la vitesse de l’assembleur 
à votre portée. 

Créez vos programmes en BASIC et SPEEDY les traduira en langage 

ASSEMBLEUR. Utilisation simple à la portée de tous. 


KZ MINIPUCE 6, RUE DE BELLEVUE + 92100 BOULOGNE + TÉL. 16 (1) 48.25.59.23 


Distribué par DPMF DIFFUSION - 155, rue de Paris 92100 Boulogne - Tél. 16 (1) 48.25.79.15 
REVENDEURS, CONTACTEZ-NOUS. 
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POUR 1986 F° 
J'AI MIS UN TURBO DANS MON MOS5. 
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UN QDD + DES CONNECTEURS SUPPLEMENTAIRES 

+ LE LOGICIEL INTEGRE JA : 
L'EXTENSION M05 VA MULTIPLIER LES CAPACITES DE VOTRE MICRO... 
ET LES VOTRES. 


* Prix public maximum, offre valable jusqu'au 31 mai 1986. 


POLARIS/BAZAINE DFS 


1986 démarre vite et fort pour votre MO5: 
- en vitesse, avec le lecteur de disquettes 2,8” (le QDD), THOMSON 
— en puissance, avec de nouvelles possibilités d'extension 


(4 connecteurs), 47 instructions BASIC supplémentai- MICRO-IN FORMATIQOU E 


res et JAME , le logiciel aux 3 fonctions interactives : 
traitement de textes, tableau et gestionnaire de fiches.  fame est une marque déposée d'Arktronics Corp. 














Caiteo 


Du bit qui bascule de S à 
1,à l’image animée en cour- 
leur,c'est là que se tient tout 
l'art du graphisme sur micro- 
ordinateur. 


Un thème que reprend ce 
numéro de TEOphile où vous 
ferez d'autres découvertes. 


Un match pour un choix, 
Caractor Il contre Color- 
paint. Deux outils graphi- 
ques performants. 

Un TEOriste vous propose un 
programme de remplissage 
de formes à l'aide de motifs 
handle © ou à conce- 
voir. 


Logo est enfin dans TEOphi- 
le. Pour commencer des 
applications qui sortent des 
ar ie; courbes frac- 
ales. 


Un TO7 qui pilote un vidéo- 
disque VHDTEOphile a 
regardé de près comment 
cela fonctionne. 


Les premiers trucs sur la car- 
touche Prolog de FIL qui sort 
enfin. 


Et beaucoup d'autres choses 
comme les pages “télémati- 
que“ sans oublier les TEO- 
funs et le TEOconcours qui 
remportent les suffrages de 
beaucoup, tant les cartes 
postales s'empilent à la 
rédaction. 


Continuez, nous en sommes 
ravis. 


J. ELTABET 
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TEOphile est une 
de la société 
Slège social : 10, mr 69006 Lyon 


Adresse de la rédaction et de la publicité : 
26, rue Beaubourg - Pare Tél. : 48.04.91.11 
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Une mini table traçante 
d'initiation 
chez Fischertechnik. 





Le Traceur/Exploreur : une table traçante. 


Fischertechnik est bien connu des pédagogues pour le 
sérieux et la qualité de ces modules à assembler pour 


réaliser des modèles réduits (un peu comme ego 
dans le domaine récréatif). 
Dans. le catalogue de Pierron Entreprise 


(87.95.14.77), le distributeur en France, nous avons 
trouvé un traceur/explorateur pour 1 602 F. TTC. Il 
faut ajouter à ce prix, si l’on ne possède pas d'interface 
de pilotage (que l’on peut toujours réaliser soi-même), 
une interface arr LS se raccordant sur une sortie 
bus à l'arrière d’un MOS ou d'un TO7. Elle comporte 
4 sorties pour la connexion de moteurs, de lampes, 
d'électro-aimants, d'électrovannes, etc. 8 entrées digi- 
tales pour connecter des claviers, des commutateurs. 
Enfin, elle comporte également 2 entrées analogiques 
pour la connexion de potentiomètres, etc. 


Cette interface est programmable en Basic avec l’aide 
d'une cassette ou d’une disquette livrée avec. Cette 
interface permet le pilotage de nombreux montages 
Fischertechnik dont le traceur/explorateur qui com- 
bine une tête classique d'écriture électromagnétique 
équipée d’un stylet feutre et une tête de lecture 
optique avec lampe et cellule photoélectrique. Les 
mouvements de la tête sont provoqués par deux 
moteurs pas à pas (6,8 v) avec un pas de 7,5. Deux 
touches sont prévues pour déterminer les coins extré- 
mes du champ d'action sur une plaque acrylique 
transparente avec visualisation de butées pour docu- 
ment au format 21x29, 7 cm. Le traceur est relié au 
boitier d'interface par un câble plat. Une disquette ou 
une cassette contiennent les programmes de gestion. 


CHrOHiQUES 
du Micro Mode 


Les fonctions pro- 
grammables 


Step : 

Grâce à ce programme, 
on peut procéder à la 
démonstration de la com- 
mande des moteurs pas- 
à-pas avec retardement 
selectionnable. La fonc- 
tion d'un moteur pas-à- 
pas est parallèlement 
expliquée dans la notice 
d'instruction. 


Plot : 
Un programme Basic 
pour la commande du tra- 
ceur. Le point de départ 
des logiciels d'application 
sont les sous-programmes 
pour les mouvements du 
traceur, les lignes droites, 
les angles droits, les 
hachures, les cercles, les 
ellipses et les arcs. En 
outre, il existe une 
bibliothèque complète de 
lettres ASCII pouvant 
être encore complétée 
pe 128 signes spéciaux. 
‘autres sous-program- 
mes pour le dessin d’axes 
d'échelles sont fournis, y 
compris les inscriptions et 
l'échelonnage. 


Function : 

Ce programme est basé 
sur Plot ; il dessine et 
cadre n'importe quelle 
fonction d’une variable 
indépendante. 


Param ; F : 

Ce programme est égale- 
ment basé sur Plot ; il 
cadre et dessine une fonc- 
tion à deux dimensions 
d’un paramètre commun. 





L'équipage mobile reçoit 
un stylet feutre ou un 
ensemble  lampe/cellule 
photoélectrique. 





D 3 : 

Sur la base de la défini- 
tion des arêtes d’un 
corps, celui- ci est dessiné 
sous toutes ses faces, 
quelle que soit la direc- 
tion de visée. La repré- 
sentation est optimisée 
sur la surface de traçage. 
Image à 3 dimensions. 


Char. Design : 

Grâce à ce programme, 
vous pouvez modifier et 
compléter le jeu de carac- 
tères du programme Plot. 
L'esquisse des caractères 
se fait à partir de l'écran. 


Scanner : 

Programme pour le 
balayage optique d’un 
document jusqu’au for- 
mat 21x29,7 cm. Des 
valeurs de luminosité 
indiquées par l'ordina- 
teur sont imputées aux 


différents points (pro- 
ression d'environ 
mm). Au terme du 
balayage, les données 


peuvent être mémorisées 


et ainsi mise sur dis- 
quette. 
P& W : 
Par la sélection d’une 


valeur limitée appropriée 
entre les valeurs extrêmes 
de luminosité indiquées 
par l'ordinateur, on pro- 
duit sur l'écran une image 
digitale noir et blanc. 


D.PIC : 

On peut, grâce à ce pro- 
gramme, choisir en plus 
trois résolutions différen- 
tes dans le sens x et y et 
les optimiser au choix sur 
l'écran. 


D 


Color : 
On peut ici, à l’aide de 


valeurs limites appro- 
priées à déterminer, 
représenter jusqu'à 16 


couleurs sur l'écran. La 
gs complète des cou- 
eurs de l'ordinateur est 
disponible. Comme dans 
le programme précédent, 
on peut faire la distinc- 
tion entre trois degrés de 
résolutions qui sont opti- 
misés sur l'écran. 


Pattern : 

Avec ce programme, l’or- 
dinateur recherche un 
cercle noir plein réalisé 
sur le document. Le 
détecteur suit la ligne du 
cercle et analyse les don- 
nées de positionnement. 
On peut ensuite identi- 


fier, selon la même 
méthode, des cercles 
identiques, différents ou 
déplacés. 


Les éléments de ce tra- 

ceur peuvent être combi- 

nés avec toutes les autre 

pièces Fischertechnik 
our réaliser des ensem- 
les plus conséquents. 


À À À 


Peritek 
change 
d'adresse 


La nouvelle adresse com- 
muniquée par Peritek est 
la suivante : 

67, rue Baraban - 69003 
LYON. 

Tél : 72 34 08 09. 


À À À 


Stage TO7-70 
à Montrouge 


La Maison des Jeunes et 
de la Culture de Mon- 
trouge (92) organise des 
stages d'initiation les 24 
et 25 mai 86 et de perfec- 
tionnement les 7 et 8 juin 
86, sur TO7-70. Le PE 
du stage est de 250F, 
lus les frais d'adhésion. 
él : (1) 46.55.88.91. 


À À À 






Thème Astral inté- 
ressera tous les 
amateurs — et ils 
sont nombreux — 
d’astrologie. C’est 


un logiciel de 
connaissance de 
soi-même, réalisé 
sur la base de la 
configuration du 
ciel à l’instant de la 
naissance. 


L'utilisation est simpli- 
fiée. Pour calculer un 
thème astral, il suffit 
d'entrer trois données : 
l'heure, la date et le lieu 
de la naissance d’une per- 
sonne. L'ordinateur fait 
le reste : les calculs, la 
représentation graphique 
du thème et son interpré- 
tation détaillée. Cette 
analyse est disponible sur 
écran si vous voulez 
consulter un point précis. 
L'impression sur papier 
est préférable puisque 
chaque thème représente 
7 pages de texte et une 
page de représentation 
graphique. 





lu Micro MONGE 


Thème Astral 
La révolution en astrologie 


Au menu, les auteurs ont 
également prévu une 
astucieuse gestion de 
fiches. Les forts en thème 
pourront à loisir corriger 


ou compléter les com- 
mentaires. Vous connais- 
sez parfaitement les ora- 
ges de Mars, la séduction 
de Vénus ou les troubles 


de Neptune ! Vous pou- 
vez à votre tour interpré- 
ter en changeant le 
La 
sobre 


contenu d’un texte. 
présentation 


est 


mais soignée. La jac- 
quette est représentative 
de ce monde de l’astrolo- 
gie avec une enluminure 
de la Renaissance. 


va 


i 
Pa ’ SEA 
s 


atio 


“ie Bebe Picasso ? 


1 
L ‘ 
= SNS ve y 


RS 
“? 


L'écran de présentation 
est émaillé d’une carte du 
ciel astrologique. Les 
commentaires sont res- 
treints pour chaque 





caractéristique mais avec 
la gestion de fichiers, les 
astrologues en herbe 
pourront les modifier en 
culottes courtes, dans la 


ST "A 
pos 


naité 


' TENTE BUS 


limite des 120 caractères 
disponibles pour chaque 
élément. 

L'analyse de chaque 
thème est très poussée et, 
selon les tests que TEO a 
réalisés pour ses lecteurs, 
fiable. Bien évidemment, 
la synthèse d’une telle 
masse d'informations fait 
défaut, comme toujours 
dans ces logiciels d'étude 
astrale. En outre, pour 
bien comprendre et assi- 
miler l’astrologie, ce logi- 
ciel est insuffisant. Toute- 
fois, il a le mérite de pré- 
senter n'importe quel 
thème astral puisqu'il 
tient compte de tous les 
lieux de naissance, soit en 
choisissant sur la carte de 


France, avec le crayon 
optique, le lieu de nais- 
sance, soit en lui préci- 


sant la longitude et la lati- 
tude s’il s’agit d’un pays 
étranger. En résumé, 
Thème Astral est un logi- 
ciel facile d'utilisation, 
parfaitement fiable, utile 
our tous CEUX qui sou- 
aitent connaître leur 
thème de naissance et le 
conserver. De même 
pour les astrologues. 
Disponible sur TO. 
Réalisé par Infogrames. 
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grahisme 


Micro Thomson 
Dessine-moi un mouton 


abus 


PPYTTITIT 


AAA 


LR 


Parmi les perfor- 
mances des micro- 
ordinateurs Thom- 
son, il en est une 
qui n’a jamais été 
contestée : la qua- 
lité graphique. 


José Henrard, l’heureux 
ère de la gamme, en 
inventant le TO7 avec un 
crayon optique, avait 
compris l'importance du 
graphisme pour les ordi- 
nateurs et ce n’est pas un 
hasard si le premier logi- 
ciel Frpre sur TO7 


s'appelle PICTOR. 
Depuis, de nombreux 
éditeurs ont créé des 


outils graphiques dont 
voici une première étu- 
de : 


A tout seigneur tout hon- 
neur, nous avons parlé de 
PICTOR de Vifi Interna- 
tional, nous commence- 
rons par lui. C’est le plus 
vendu des logiciels sur les 
micro-ordinateurs Thom- 
son, toutes catégories 
confondues. Il permet 
d'inventer sur l'écran de 
télévision des dessins 
avec le crayon optique. 


Rien ne manque, le pin- 
ceau de différentes tail- 
les, la gomme, la pallette 
de couleurs pour le 
papier-écran et l'encre 
électronique, les formes 


prédéfinies et le dessin 
est instinctif puisqu'il suf- 
fit de pointer le crayon 
optique sur l'écran tout 
comme on utilise un 
fusain sur une feuille de 
papier. Les enfants peu- 
vent l'utiliser à partir de 
2 ans et ils s’en sortent 
bien mieux que de nom- 
breux adultes. 


Précisons au passage que 
de très nombreuses étu- 
des ont prouvées que la 
luminosité de l'écran n’a 
aucun effet sur la vue, à 
condition que cette vue 
soit bonne et que la prati- 
que du crayon optique 
soit raisonnable (une 
heure par jour). 





Naturellement, PICTOR 
permet de sauvegarder 
ses œuvres et même de 
faire des animations à 
l'écran (voir encadré). En 
bref, un Thomson sans 
PICTOR, c’est une soupe 


sans sel ! 


PICTOR, de Vifi Inter- 
national, pour  TO7, 
TO7/70, MOS, TO9 avec 
crayon optique. 


Dans la lignée du pre- 
mier, mais pour les oppo- 
sants au crayon, Vifi 
International propose JE 
DESSINE qui s'utilise 
avec les manettes de jeu. 
Les caractéristiques de ce 
produit sont identiques 





au premier et le confort 
d'utilisation (cassette) est 
moins intéressant. C'est 
néanmoins une belle réa- 
lisation qui permet peut- 
être d'obtenir des dessins 
de meilleure précision 
que PICTOR. 


JE DESSINE, de Vifi 
International, pour TO7 
+ 16K, TO7/70, MOS. 


Ces deux programmes 
ont par contre un défaut : 
on ne peut réutiliser les 
dessins qu'ils permettent 
de créer dans un autre 
logiciel. Erreur vite répa- 
rée par un autre outil : 
CARACTOR, de Totek 
International, et sa ver- 
sion améliorée CARAC- 
TOR II. 








La première étape 
consiste à dessiner des 
caractères ou des mor- 
ceaux d'écran pes à une 
loupe grossissant 12 élé- 
ments de base de l'écran 
Thomson (40x25 au 
total). Sur la droite de 
l'écran, l'utilisateur a une 
visualisation en taille 
réelle de son travail. A 
l'aide du crayon optique, 
on éclaire ou éteint les 
différents pixels de la 
loupe et ainsi on définit 
des caractères. Les des- 
sins apparaissent en une 
seule couleur et il faut les 
colorier. On passe en 
mode tableau et on peut 
définir pour chaque 
caractère la couleur de 
fond et la couleur de for- 
me, ce qui permet de 
visualiser les couleurs (8 
couleurs pour la version 
I, 16 pour la version IT). 


Ce logiciel (version IT) est 
une véritable usine à des- 
sin pour micro-ordinateur 
Thomson. Il permet de 
créer des formes pixel par 
pixel, caractère par carac- 
tère et ainsi de constituer 
des fichiers que l'on peut 
exploiter dans n'importe 
quel programme quelque 
soit le langage utilisé. 


Les applications sont 
extrêmement nombreu- 


ses : définition de picto- 
grammes, de nouvelles 
polices de caractères, 
fabrication de personna- 
ges. 


Il est dommage que l'on 
ne puisse définir ces cou- 
leurs de fond et forme 
sur l'élément de base 
qu'est la barrette de huit 
pixels, mais cette limita- 
tion n'enlève rien à ce 
produit très professionnel 
qui raviera les program- 
meurs. La sauvegarde est 
possible sous plusieurs 
formes : cassette,  dis- 
quette, ou édition sur 
imprimante. C'est sans 
aucun doute l'outil indis- 
pensable de tous ceux qui 
veulent gagner du temps 
de développement sur 
micro-ordinateur Thom- 
son et de nombreux édi- 
teurs ne cachent pas qu'il 
l'utilisent couramment. 
Par conséquent, il risque 
de décevoir les utilisa- 
teurs qui préfèrent le des- 
sin moins technique et 
“plein cadre” 


CARACTOR ÎI et II chez 


Totek pour T07, TO7/70, 
MOS. 

Pour ceux là, il existe 
COLORPAINT., chez 


Fil, qui allie la simplicité 


erfor- 
TOR. 


consacre le 


de PICTOR et la 
mance de CARA 
Ce logiciel 
crayon optique comme 
véritable pinceau et tout 
est accessible par picto- 
grammes que l'on pointe 
pour accéder à de nouvel- 
les fonctions. Les options 
satisferont les peintres 
électroniques les plus exi- 
geants : changement de 
la grosseur du trait, for- 
mes géométriques pré- 
programmées,  remplis- 
sage de zones à l'aide 
d'un pochoir ou d'une 
bibliothèque de fond, 
copiage de zone avec 
réduction ou agrandisse- 
ment. 


La liste exhaustive rem- 
plirait l'article. A noter 
toutefois trois fonction- 


nalités fondamentales : 


— La loupe qui glisse sur 
l'écran et permet de 
retoucher un dessin au 
pixel près pour gagner en 
précision ou en finition. 


— Le damier qui pose 
une grille sur l'écran et 
permet de dessiner avec 
des repères pour équili- 
brer la toile électronique. 
— Le traitement des 
couleurs qui est ramené 
au segment de huit pixels 


pour profiter pleinement 
des capacités des micros 
Thomson. 


Avec COLORPAINT, 
l'utilisateur peut sauve- 
garder ses œuvres sous 
différentes formes et les 
réintégrer dans un autre 
programme (sous n'im- 
porte quel langage) et 
même dans Paragraphe 
sur TO9. Il est également 
possible de récupérer une 
image  digitalisée par 
caméra pour la retou- 
cher, l’affiner. 


Un produit de haut 
niveau accessible à tous 
les types de dessinateurs, 
des plus amateurs aux 
plus techniques. 


COLORPAINT, chez 
Fil, pour TO7/70, TO. 


Malgré les performances 
de ce logiciel, il existe des 
aspects de la création gra- 
phique qu'il ignore. L'ini- 
tiation, par exemple, des 
très jeunes enfants à la 
composition de tableaux 
à partir de formes élé- 


mentaires. C'est l'objet 
de RACONTE UNE 
HISTOIRE, chez Vifi 
International, qui invite 


l'enfant à choisir des for- 
mes élémentaires avec la 
manette pour les assem- 
bler sur l'écran. L'enfant 





sélectionne également le 
taille et la couleur. Cel: 
rappelle les gommette: 
ou la feutrine, c'est moin: 
coloré, et on n'a pas k 
goût de la gomme arabi 


que. Une nouvelle 
démonstration que le: 
idées “éducatives” ne 


sont pas toutes transféra: 
bles du papier à l'écran. 


RACONTE UNE HIS. 
TOIRE, chez Vifi Inter. 
national, pour 
TO7+16K, TO7/70 
MOS. 

Dans le même esprit 


COLORGRILLE, che 


Apid, rappelle les jeux de 
mosaïques. Une grille 
affichée à l'écran peut 


être remplie à l’aide du 
crayon optique par des 
carrés de couleurs (14 dif. 
férentes) pour créer un 
dessin. Simpliste, mais 
l'enfant acquiert des 
notions de repérage en 
deux dimensions tout en 
inventant des pay Fe où 
en reproduisant l'alpha: 


bet. 
Elaboré des ensei: 


par 


gnants, ce logiciel reste 
toutefois peu souple 
d'emploi. 

COLORGRILLE, che 


Apid, pour TO7/70 & 


MOS. 


STOP! # 


Ici revendeur spécialiste 
T09/T07-70/M05 
et agréé carte club THOMSON 
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C'est PS NE bn mr tes SEE UT C'est aussi le parrainage : 
THOMCARTE : (T: 3, pour tout parrainage supérieur 
la carte de fidélité qui donne LE THOMSONISTE à 2.000 F., un logiciel gratuit 
droit à 5 % de réduction. pour le parrain. 


vous propose : 


DES PRIX IM-BAT-TA-BLES 


et une remise de 10% pour tout achat. 


































































Matériels : 

109 + moniteur couleur 68990F 0] Souris TO9 430F 
Unité centrale TO9 7450 F [ Contrôleur de jeux modèle 2 150F 
Moniteur couleur 36cm HR 2900 F [] CLED 320 K TO7-70/M05 —  3300F D 
Moniteur monochrome 31cm TV/HR + câble 1000 F Lecteur enregistreur Quick Disk Drive + 4 logiciels - 930 F O 
Extension MO5 + QDD Jane intégré 1850F [] Coffret T07-70 (T07-70/LEP/Colorpaint/Cube Basic)— 3850 F D 
Imprimante haut de gamme PR90-600 2800 F [] Coffret MO5 (MO5/LEP/Pictor/Mandragore) — 2850 F D 
Câble imprimante PR90-600 pour TO9 —_____ 180F [] Clavier mécanique TO7-70 — 550F D 
Manette TO9 145F O Clavier mécanique MO5 500 F 
Logiciels”: 

Dieux du stade (D) TO9 220F 0 Assembleur Totek 6809 E (K) T07-70/M05 485 F O 
France Europe (D) TO9 285 F D Cap sur Dakar (C) T07-70/M05 170F 0 
Thésaurus (D) TO9 220F O Cap sur Dakar (D) TO9 230 F DO 
SOS Space D) 09 220F O0 Judoka (C) TO7-70-M05 185F Q 
Las Vegas (D) TO9 290 F [] Sortilège (C) T07-70/MO5/TO9 190F O 
Karaté (D) TO9 220F 0 Geste d'Artillac (C) T07-70/MO5/TO9 230 F Ü 
Super Business (D) TO9 540 F OÜ Comptabilité Générale (D)  990F O 
Malédiction de Thaar (D) TO9 230 F DO Pop Pop (C) T07-70/M05 180 F D 
Sortilèges (D) TO9 235F DO Algèbre (C) T07-70/M05 170F D 
Politik Poker (C) T07-70/M05/T09 90 F O Assimil Anglais (1 livre + 6 K7) T07-70/M05 480 F D 
L'affaire Véra Cruz (C) T07-70/MO5/T09 170F 0 Assimil Espagnol (1 livre + 8 K7) T07-70/M05____  480F O0 
Khronos (C) T07-70/M05 175F 0 Praxitèle (K) T07-70/TO09 NS ss Le 20000 FC 
Océania (C) T07-70/M05 200 F O 3 D Kit (C) T07-70/M05 180F LU 
Mon général (C) T07-70/M05 185F O Vol Solo.(C) T07.70/M05/T09 185F O 
Beach Head (C) T07-70/M05/T09 180F Ü La nuit des Templiers (C) T07.70/M05/T09 145F D 
Enquête à la loupe (C) T07-70/M05 170F 0 Phonemia (C) T07/T07.7/M05/T09 185F O0 










* Dans la limite des stocks disponibles 
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VIDEO 32 est ouvert 
7 jours sur 7 y compris jours fériés. 
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Faites du dessin animé 
avec Pictor 


Pictor possède une fonc- 
tion que peu de gens utili- 
sent à tort car elle permet 
de faire de l’animation : 
Pictor. En effet, lors- 
qu'elle est activée, elle 
efface l'écran et recom- 
mence la séquence de 
votre dessin. 


Voyons, par un exemple, 
comment animer un per- 
sonnage sur l'écran. 


Nous allons entraîner un 
sympathique cow-boy au 
tir. Commençons par le 


dessiner face à une cible, 
une bouteille par exem- 


À 
EL 
f 
(| k 
À 





ple. Effaçons mainte- 
nant, grâce à la fonction 


À 


La 





gomme, son bras et 
redessinons-le en position 
de tir, révolver au poing. 


Pour simuler le coup de 
révolver, dessinons la 
balle puis effaçons la plu- 
sieurs fois en la faisant 
progresser sur une trajec- 
toire. Enfin, la balle tou- 
che la bouteille qui explo- 
se. 


Cette séquence terminée, 
validons la fonction PIC- 
TOR. Vous constatez 
que le cow-boy dégaine, 


tire et que la bouteille 
explose. 


Un festival de dessins ani- 


més. Walt Disney en her- 
be ! 


Be 


Colorpaint ou Caractor II ? 
L'avis d'un spécialiste 


Roger GRANIER à testé 
deux utilitaires graphi- 
ques. Il nous donne son 
avis. 


RUAUEANAI 


est un logiciel graphique 
qui peut être utilisé avec 
le crayon optique ou la 
souris. Les options très 
variées sont accessibles à 
partir de sept menus. 






Le menu DES 


permet trois épaisseurs 
de traits aussi bien en 
dessin libre, lignes bri- 
sées, segments, rectan- 
ges. ellipses, cercles, etc. 
ne fonction gomme per- 
met les retouches que 
l'imprécision du crayon 
rend difficile dans cer- 
tains cas délicats. 


Le menu PEINTURE 


permet le remplissage de 
zones, aussi bien en 
teinte unie qu’en tramés, 








programmé ou redéfini 
ar l'utilisateur. Toute- 
ois, se méfier du remplis- 
sage des deux zones 
contigues qui peut don- 
ner des escaliers du plus 
bel effet. 






TRANS 


ottre les possibilités habi- 
tuelles en ce qui concerne 
la taille (forme et hau- 
teur) des caractères. Il 
permet également d’utili- 
ser des caractères redéfi- 
nis par l'utilisateur. 





On peut regretter toute- 
fois que ce logiciel ne 
comprenne pas au moins 
une police de caractères 
autres que les caractères 
courants. Néanmoins, 


avec un peu d’habileté et 





en utilisant l'instruction 
contour, on peut arriver 
à des résultats intéres- 
sants. 


En partant de 


la fonction CADRE 


on accède à la rotation 


de zone, modification de 
taille, déplacement et 
symétrie. Très pratique ! 


La fonction LOUPE 


permet un travail facile 
au pixel près. Sa dimen- 


sion est correcte 
puisqu'elle couvre 256 
points. 
Avec 


La fonction COULEUR 


on peut changer globale- 
ment la couleur d’un des- 
sin. En cliquant essai, un 
rapprochement des cou- 
leurs sur la palette donne 
une idée précise de l'effet 
produit lorsqu'elles sont 
côte à côte. 





La fonction 
ANUS 


gère avec une bonne 
volonté évidente les 
fichiers sur cassettes et 
sur disquettes et, acces- 
soirement, permet la 





reproduction 
imprimante. 


sur une 


Evidemment, ces fichiers 
peuvent être réutilisés 
pour d’autres logiciels. 


Avec 
l'extension 
(DIBTENAREUA) 


qui fonctionne en mono- 
chrome, on obtient un 
résultat correct sur des 
images provenant d'un 
magnétoscope ou d’une 
caméra vidéo (réglages 
délicats). 


En conclusion 


COLOR PAINT est un 
bon logiciel, aux possibi- 
lités très variées. On peut 
regretter cependant que 
les diverses commandes 
ne soient pas rassemblées 
dans un nombre plus res- 
treint de menus dérou- 
lants, rendant plus facile 
l'accès aux différentes 
fonctions. 









CARACTOR II 


est un logiciel graphique 
utilisant le crayon opti- 
que. Sa facilité d'accès est 
remarquable et son utili- 
sation très agréable. 


Un menu principal 
conduit à quatre menus 
secondaires. 


|, Menu Dessin 


Il donne accès à la gom- 
me, au dessin, au dépla- 
cement de zone, le tout à 
l’aide d’une loupe géante 
très pratique de 768 
points (qui dit mieux ?). 


Il permet la copie (d’un 

seul caractère, hélas !), la 

superposition (très prati- 

que), la symétrie, la rota- 

tion et un tiroir, toujours 
ur un seul caractère. 
ommage ! 


dont les fonctions sont 
multiples :  formattage 
des disquettes, charge- 
ment, sauvegarde pour 
cassettes et disquettes 
sous forme de fichiers 
Basic, Assembleur ou 
Code Interne. Ce dernier 
ermet le renvoi des 
ichiers dans Caractor II, 
ur d'éventuelles modi- 
ications. 


Les fichiers assembleurs 
sont très pratiques car 
utilisables dans un pro- 
gramme Basic. Ils per- 
mettent une rapidité d’af- 
fichage très supérieure au 
mode Basic. Très prati- 
que pour les dessins ani- 
més. 


d Menu Consultation 


donne accès au codage 
des dessins et mono- 
caractères. Personnelle- 
ment, je ne l'utilise que 
pour avoir une vue agran- 


graphisme 





die de la zone d’afficha- 
e. Très pratique pour 


ignoler un détail ou des- 


siner avec précision. 


En resume 
J'aime beaucoup Carac- 


Interview 
de Roger Granier 


On m'avait dit : 


“Si tu veux tout savoir sur les pionniers du graphisme en 
micro-familiale, vas voir Roger Granier”. Je pris aussitôt 
rendez-vous et quelques jours plus tard, Roger me recontacta. 


De Walt 
Disney au 


pays de 

Tintin 

“Quand j'étais petit gar- 
çon, je voulais devenir 
créateur de dessins ani- 
més, comme Walt Dis- 
ney”. Cheveux blancs et 
oeil-lumière, Roger Gra- 
nier, génie du graphisme 
sur micro, m'explique : 
“Ma révolution, ç'a été 
Blanche Neige et les sept 


nains. Mais, pour créer 
dessins animés, il fallait 
une équipe et du maté- 
riel”. La guerre (celle de 
39-40) et l'Occupation lui 
firent oublier ses rêves 
d'enfant. Pas tout-à-fait, 
puisque Roger confec- 
tionna le “Multiplan”, un 
appareil qui lui permet- 
tait de filmer ses person- 
nages devant un décor 
qui défilait. “Avec ma 
machine, je n'allais pas 
très loin. Tout de même, 
je me suis bien amusé. 
C'est l’arrivée en France 
de la micro-familiale qui 


a réveillé mon imagina- 
tion. 

Dans son garage de Saint- 
Vallier, en bordure du 
Rhône, muni d'un PET 
de Commodore, Roger 
commença la grande 
aventure. “Puisqu’on 
pouvait stocker des mor- 
ceaux de personnages, 
pourquoi ne pas les affi- 
cher et animer ces 
écrans ?”. C'est ce qu'il 
s’appliqua à faire pendant 
deux ans. “Très vite, les 
6 Ko de mémoire et l’affi- 
chage trop lent du maté- 
riel limitèrent mes élans. 


tor II qui me paraît être 
un logiciel d'accès facile 
sans gadgets inutiles et 
malgré tout performant. 
On peut lui reprocher 
une zone d'affichage un 
peu petite ainsi que des 
fonctions de rotation et 








copie ne s'appliquant 
u’à un seul caractère. 
eci dit, c’est malgré tout 
un compromis honnête et 
un outil passionnant. 





Il me fallait un nouvel 
outil. J'optais pour le 
DAI, du belge une fois”. 


Après le noir-et-blanc, 
Roger découvre les fan- 
taisies de l’écran-couleur, 
sa palette prend de la 
valeur. “Ce n'était pas 
encore l'idéal : la vitesse 
d'affichage ne me per- 
mettait pas d'animer avec 
succès les dessins que 
j'avais en tête. Je réussis 
à créer quelques pro- 
grammes, mais, bof, il 
manquait encore quelque 
chose”. 


Le TO7 
à deux 
têtes 


Ce quelque chose, il le 
trouve avec le TO7 : 
“Enfin, la rapidité d'affi- 


chage répondait à mes 
exigences. Il était loin 
mon premier jeu de cow- 
boys, en noir-et-blanc, 
qui descendaient métho- 
diquement un lot de bofî- 
tes de conserve empi- 
lées ! J'avais enfin des 
programmes corrects et je 
décidais de trouver un 
éditeur. 


Roger se décide pour 
Infogrames : 

“C'est l'éditeur le plus 
proche de mon domicile, 
précise-t-il en souriant. 
Coup de foudre entre 
l'équipe d’infogrames et 
ce pionnier du jeu bien 
fait. “J'étais prêt pour la 
grande aventure, enfin 
presque, car, si pour 
manier le crayon-électro- 
nique, je me défends, 
question programmation 
j'avais encore beaucou 
à apprendre. A part quel- 


WahiSme 


ques boucles en Basic qui 

me bouffaient trop de 

pe en mémoire, je ne 
rillais pas. 


A l’autre bout du bureau, 
Pierre qui a écouté 
jusqu’à présent sans rien 
dire, rougit au ton admi- 
ratif de son maître. “Sans 
Pierre, je n'aurais pas 
trouvé la clé du paradis 
de la micro. Ses program- 


mes, en Basic ou en 
Assembleur, font des 
merveilles. Regardez un 
peu.” 

Ensemble, ils me font 
découvrir leurs inven- 


tions (au total, 4@@ dis- 
quetes bourrées dessins, 
ils avouent ne pas retrou- 
ver leurs petits dans cette 
abondance) :“Le premier 
essai, c'était Ordifables. 
Pierre, sais-tu où est la 
disquette ?” Ils remuent 
leurs fonds de tiroir. “Le 


CONCOURS ARTISTIQUE 


A l'occasion de ce spécial dessin, TEOphile organise un 
super concours permanent de dessin sur ordinateur 
Thomson doté de nombreux logiciels. 1! suffit d'envoyer 
une photo ou une disquette contenant votre œuvre (en 
précisant avec quel logiciel elle a été réalisée). 


Trois catégories chaque mois : 


e Pleine page 
e Caractères 
e Comics 


Pour Pleine page, vous devez envoyer un dessin original 
(gare aux copies) plein écran et un jury composé des 
action sélectionnera les trois meilleu- 
res images qui seront publiées dans le journal et les 
auteurs recevront une collection de 10 logiciels. 


Pour Caractères, il s'agit d'inventer des personnages ou 
des pictogrammes (signaux, logotypes, etc) et, de 
même, les trois meilleurs seront publiés et dotés. 


Pour Comics, vous créez une séquence (de préférence 
drôle) de bandes dessinées et vous l'envoyez à la rédac- 
tion. Si le jury éclate de rire, elle sera publiée et vous serez 
rémunéré pour votre création. || n'y a aucune limitation 


membres de lar 


de nombre... 


Alors, à vos palettes | 





corbeau et le renard”, 
“La cigale et la fourmi”, 


voilà les premiers pas de 
leur collaboration. 


“Dessiner sur du micro, 
ça ne va pas tout seul, les 
contraintes vous obligent 
à des pirouettes de pro- 
mme ni et Pierre est 
à pour les résoudre.” 


Pierre, 
avoue : 
“J'ai tâté à la physique et 
à l'électronique puis très 
vite, j'ai joué avec ma cal- 
culatrice programmable. 
Et là, pour optimiser la 
place-mémoire, je devais 
m'ingénier à créer des 
LA érgnenaie ultra-courts. 
‘avais en tête un projet 
que je devais réaliser avec 
un copain : 


une machine qui aurait 
permis aux architectes de 
dresser des plans de sol, 
des élévations de niveau, 
automatiquement. La 
machine reste à créer, 
mon copain a abandonné 
l’idée, vocation oblige, il 
est devenu pasteur entre 
temps...” 


le co-équipier, 


Pierre, avec son cartable 
rempli de “soft“ (enten- 
dez des jeux et program- 
mes en tout genre) a 
rejoint l’équipe d’Info- 
rames. De ce cartable, 
il a sorti un “Cahier de 
vacances” : 


des révisions de maths et 
de français pour les éco- 
liers. 

“L'équipe étant au com- 
plet, en avant pour les 
scénario à suspense. 
Après notre premier essai 
sur les fables de La Fon- 
taine, on a démarré sur 
une idée d’héritage : 


Las Vegas, rebaptisé 
l'Héritage. C'est l’his- 
toire d’un paumé qui 
hérite d’une tante : 

là où les choses se compli- 
quent c’est que les voisins 
(créanciers de  l’anti- 
héros en question) ont 
vent de l'affaire et décide 
de récupérer leurs dûs”. 
Pierre déroule le jeu : 
décor d’escaliers et de 
couloirs, genre Escalier 





C. “On est en train 
d'écrire la suite, peut-être 
que la tante n'est pas 
morte. Comme dans Dal- 
las, les héros réapparais- 
sent par enchantement”. 


A ma question, qui a 
l'idée du scénario ? 
Pierre répond “Les bruits 
de couloir, l’idée de l’un 
d'entre nous. Pour le 
Politik Poker, par exem- 
ple, nous étions partis sur 
le succès des hommes 
politiques. Au début, 
c'était la politique à la 
sauce Guignol. Ensuite, 
on a hésité pour le Pierre 
répond “Les bruits de 
couloir, l’idée de l’un 
d'entre nous. Pour le 
Politik Poker, par exem- 
ple, nous étions partis sur 
le succès des hommes 
politiques. Au début, 
c'était la politique à la 
sauce Guignol. Ensuite, 
on a hésité pour le par- 
tage de la France, c'était 
un peu lugubre puis un 
débat, mais Polac nous a 
devancé.  Restait le 
poker. Là, on a un peu 
réinventé les règles du 
jeu : 

la veste qu'on retourne, 
ça existe en politique, 
très peu au poker. Et 
Roger complète : 


“Le plus dur fut de trou- 
ver les quatre dames. 
Il fallait qu’elles soient 
assez représentatives des 
quatre partis retenus et 
reconnaissables par le 
ublic. On attend avec 
impatience les présiden- 
tielles pour recommencer 
la partie avec les partis. 
“Dis-moi, Pierre, ce des- 
sin n'est pas terrible, la 
bouche est à refaire. 
Qu'en penses-tu ?“ 
Pierre acquièce : “Ce 
n'est rien, regarde la suc- 
cession d'images, il fau- 
dra que je bidouille mon 
programme, l’enchaîne- 
ment laisse à désirer. “Je 
repars sur la pointe des 
pieds pendant que les 
deux co-équipiers s’affai- 
rent avec leurs pointes 
électroniques, qui le 
crayon, qui le curseur. 
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Votre matériel 


Avez-vous un Minitel ? QUI NON 


téogiciel 


du MIS 





Dans la série dessin et initiation, pour les plus grands, c’est 
CAO, de Loriciels, que nous avons élu TÉOgiciel du mois 
malgré sa date de sortie. 





Ce logiciel très perfectionné sensibilise aux techniques de conception assistée par 
ordinateur, notamment grâce à la modélisation filaire en trois dimension. 


L'utilisateur entre les points représentatifs, trace les vecteurs (sans intégrer les 
parties cachées) et a toute une série d'ordres de transformation à sa disposition : 
translation, rotation, copie. Il visualise ensuite sa création avec des options 
intéressantes telles que le zoom, la vue panoramique ou en perspective. Il est 
naturellemnt possible d'effectuer des copies sur imprimante. 


Nous conseillons vivement une lecture attentive du manuel, très bien fait, avant 
toute manipulation car les principes de ce logiciel ne sont pas instinctif. Ce logiciel 
séduira sans aucun doute les passionnés de la troisième dimension mais captivera 
également tous ceux qui s'interrogent sur les technologies nouvelles. 


CAO, de Loriciels, pour TO7/70, MOS. 
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Choisissez Thomtel en 
tapant le 6, vous serez 
branché sur le club. 


Sommaire agréable et lu 
en deux temps : 


1 temps: l'actualité 
Thomson pour tous. 


2ème temps: le (Club 
Micro Thomson, pour les 
gentils abonnés. 


Commençons par la 
première formule : 


Actualités Thomson 


Vous êtes tout de suite 
dans le vif de l'actualité 
Thomson : 


le premier écran vous 
donne toutes les coordon- 
nées du Club. Ouf ! enfin 
un service qui se dévoile. 
Ce n’est pas toujours évi- 
dent de savoir à qui on a 
affaire ! 


La deuxième page vous 
est commentée par un 
facteur sympathique 
(bien qu’en noir-et-blanc) 
je l’ai confondu avec un 
gendarme, sympa quand 
même. Effort dans la pré- 
sentation puisque le texte 
est réduit à des titres 
parlants. Pour mieux tes- 
ter le service, j'ai 
demandé toutes les rubri- 
ques. Que ne ferais-je pas 
pour les téophilistes ! 


A la une de 
Thomtel 


j'ai découvert le som- 
maire du journal du club 
Thomson. Pratique, inu- 
tile de se précipiter au 
kiosque le plus proche, 
d'autant qu'avec le temps 
frais de ce printemps, 
c'est plus agréable de tout 
découvrir allongé sur la 
moquette. 


téématique 


Club Thomson 
Sur Minitel 


(Composez Télétel 3, puis tapez le service :METZ 229.) 


Aïe ! J'ai encore man- 
qué une étape, en 
appuyant sur sommai- 
re, évidemment, je 
retombe sur la page de 
garde. 


Le club Thomson : 
pourquoi ? 


pour qui ? 
comment ? 


Avec cette rubrique, vous 
connaîtrez tous les servi- 
ces du club : 


les promotions du mois, 
le journal, les concours, 
le courrier express -pour 
tout savoir sur la micro et 
que vous n'avez jamais 
osé demander. 


On vous explique même 
comment s'inscrire. Faci- 
le, non ? 


Ça y est ! j'ai trouvé la 
bonne touche pour 
revenir au menu qui 
m'intéresse. Tout est 
expliqué, il suffit de lire 
l'écran. 


3ème service : 
La vie des micros. 


Mieux que Favre et ses 
insectes, la vie des micros 
vous dit tout sur les maté- 
riels et les logiciels. 
J'avoue n'avoir pas lu 
dans le détail les termes 
techniques, mais les mes- 
sages sont rédigés claire- 
ment et pour les néophy- 
tes ç’est lisible. Même le 
coût est indiqué, sans 
oublier les promotions. 


Pour les logiciels, la liste 
est longue. Elle reprend 
les titres disponibles et un 
résumé très bref (d’une à 
deux lignes) vous en 
donne le descriptif. Le 
nom de l'éditeur est éga- 
lement précisé. À regret- 


ter: vous ne savez pas 
toujours qui est concer- 
né : bébé, grand-maman 
ou le petit-frère. 


Toujours des graphismes 
amusants, soignés, encore 
mieux en couleur pour 
ceux qui utilisent leur 
Thomson avec l’exten- 
sion télématique. 


Dernier service : 


La liste de tous les points 
de vente. J'ai voulu tester 
et pour éviter les zones 
encombrées comme 
Paris, j'ai choisi le centre 
de la France. Hélas, les 
revendeurs Thomson 
désertent la France pro- 
fonde. Pour ceux qui ont 
fait le printemps de Bour- 
ges, rien à faire qu'à 
écouter des chansons. 

as de micro Thomson à 

ourges ! (affaire à sui- 
vre). 


Deuxième temps 
de l'enquête : 


L'accès 
au club 


Les deux premiers écrans 
sont réservés aux titres : 

Deux flashes d’actualité. 
Les dernières nouvelles 
intéressantes : à venir 
prochainement, la car- 
touche Télétel vous per- 
mettra de télécharger, 
autrement dit de conser- 
ver les programmes trans- 
mis pi modem ; et puis 
n'oubliez pas le concours 
ses gagner une place au 


undial 86. Décidément 
on trouve tout chez 
Thomson. 


La page sommaire est 
toujours claire : 


Cinq services sont propo- 
sés et je tapote les cinq 
formules l’une après l’au- 
tre. 





ler service : 
La banque 
de données 


Avec le monde des logi- 
ciels, vous avez accès à 
une liste complète et vous 
choisissez en fonction de 
votre objectif. Si vous 
voulez apprendre, jouer, 
programmer, plusieurs 
menus vous amènent au 
bon choix. Un exemple 
vaut mieux qu'un long 
discours. Pour appren- 
dre, j'ai choisi le niveau 
élémentaire (mon cher 
Thomson), et le club m'a 
proposé tout sur les 
maths, le français, en pré- 
cisant le nom de l'éditeur, 
et le type de matériel, 
même le prix. Avec ce 
service, la liste des édi- 
teurs est également très 
pratique : 


Adresse et téléphone. 


Vous pouvez même leur 








écrire, en direct sur Mini- 
tel, chaque fois que votre 
logiciel se plante. (ça arri- 
ve !). 

2ème service : 

la bibliographie 
Après les logiciels, 
Thomson vous communi- 
que la liste des livres en 
micro-familiale et des 
éditeurs spécialisés. De 
quoi rêver ! 


3ème service : 
les clubs micro 


La liste défile sur vos 
écrans (j'ai trouvé un club 
à Mehun, près de Bour- 
es, le Cher est sauvé). 
ous que vous ne 
puissiez sélectionner le 
club le plus proche de 
votre domicile. Avec un 
peu de patience, en 
appuyant sur la touche 
suite, vous obtiendrez la 
bonne adresse. 


4ème service : 
les Centres X°2000 


Leur vocation : sensibili- 
ser, informer, initier à la 
micro-informatique. 
Toute la liste est disponi- 
ble. 


Dernier service : 
le lexique 


Tapez la lettre du mot 
inconnu, et vous visuali- 
sez tous les mots du voca- 
bulaire micro. Un 
défaut : la longueur pour 
voir apparaître le bon 
mot. Pourquoi ne pas 
choisir au moins les deux 
premières lettres, ce 
serait tout de même plus 
commode ? 


La deuxième option de 
ce service vous permet de 
visualiser des schémas 
astucieux : intérieur d’un 
micro-ordinateur. 
Etrange anatomie ! Que 
se passe-t-il quand on 
communique avec un 
Thomson, quand on sau- 
vegarde, quand on est en 
direct avec Transpac : 
tout est décrit. 


Le Club Ç’est aussi la pos- 
sibilité de dialoguer en 
ermanence avec l’ana- 
yste-programmeur pour 
poser toutes les questions 
techniques. Vous pouvez 
vendre votre dernier logi- 
ciel ou votre matériel 
désuet pour installer le 
dernier TO9 avec lecteur 


de disquettes. 





RSS 


# 


COM OY 





téématique 


Qui a peint le radeau de 





Cécilia de Rosnay 
nous a dif : 


Le Club Micro Thomtel est né le 15 décembre 1985. Beau 
cadeau de Noël offert à tous les utilisateurs de Thomson. Le 
club s’adresse à tous les utilisateurs des micros Thomson. Il 
répond à toutes leurs a pq leur fait découvrir des 
astuces pour aller plus loin avec leur matériel. Avec le club, 
les utilisateurs trouveront toutes les informations qui les 
concernent. 


Pourquoi nous avons créé ce club ? 


Toutes les informations qui existent sur les nouveaux produits et matériels sont 
offertes au grand public. L'abonnement au centre serveur, c’est : bénéficier 
d'une banque de données avec la bibliographie complète des livres et logiciels, 
pour utiliser une messagerie qui nous mette en contact avec les autres membres 
du club ; pour connaître les promotions réservées aux membres : pour partici- 
per au concours permanent qui vous fait gagner des périphériques ; pour 

i r du courrier-express, service qui permet à nos programmeurs de 
résoudre toutes vos questions techniques. 


Le Club c’est aussi recevoir un journal édité tous les deux mois qui vous tient 
informé de toutes les activités du club et de l’actualité du monde micro. Il vous 
offre aussi des jeux, des concours, des petites annonces bien sûr. 


Depuis le 10 mars, Thomtel vous offre la liste de tous les relais points de ventes, 
le catalogue des logiciels. La banque de données est une mine de renseigne- 
ments pour ceux qui veulent jouer, étudier, programmer. 


Notre service à venir : Téléchargement de programmes. Avec cet outil (un 
modem offert en promotion), nos utilisateurs Thomson pourront stocker 
gratuitement les programmes réalisés par les membres du club ou par nos 


analystes-maison. Les We era des éditeurs seront également disponibles mais 
payants pour ceux-là (de l’ordre de 40 F par logiciel). 


A quel prix cet abonnement ? 
Tous les services du Club pour 250 F par an, en promotion ! 


Merci Cécilia. 


Dernière information : Thomson attend vos suggestions et remarques sur 
Minitel ; à vos curseurs ! 


Es 


n° 4 





la méduse ? 









Utilisation 


Six choix sont disponi- 
bles au menu : 


1) Choix couleur : sans commentaire. 

2) Tracé au crayon optique : permet de 
tracer un ou plusieurs contours, avec un 
certains nombre de caractères de contrôle : 


* La frappe d’un R permet de refermer le 
contour sur lui-même (ce qui est difficile à 
faire proprement avec le crayon). 

* La frappe d'un | permet de commencer 
un second tracé qui ne sera pas relié au 
premier. 

*La frappe d'un F permet le retour au 
menu. 





3) Choix d’un mofif : 


* En tapant le nom d'un des registres de la 
routine suivi de /, on verra s'afficher en noir 
sur fond blanc le contenu actuel de ce 
registre. On pourra modifier ce contenu en 
tapant ensuite un nombre qui apparaît en 
vert sur fond noir, et en validant 


- soit avec ENTREE (validation seulement), 
- soit avec ‘(validation + passage au registre 
précédent), 

- soit avec v (validation + passage au regis- 
tre suivant) 


* En tapant / non précédé du nom d'un 
registre, on obtiendra le dernier registre 
appelé auparavant. 

* En tapant F/ on revient au menu. 


sur mesure 


Ce programme écrit en 
BASIC permet de faire des 
tracés au crayon optique, de 
transmettre les paramètres 
et d’appeler la routine en 
langage machine décrite 
plus loin. 

En fait, ce programme très 
simple a été surtout conçu 
pour permettre de faire 
connaissance avec la rou- 
tine en langage machine. 
Vous pouvez également uti- 
liser cette routine indépen- 
damment. 


Exemple : après avoir fait le choix 3 du 
menu, tapez RSTAND/ puis 12 ENTREE, 
ensuite tapez F/, et faites le choix n° 4 dans 
le menu. Pointez un point quelconque et 
vous verrez se colorier votre écran en écos- 
sais ! (Le motif n°12 est l’'écossais) 


* La liste des registres de la routine, leur 
signification et leurs valeurs possibles figu- 
rent ci-dessous : 


4) Coloriage : il suffit de pointer le crayon 
optique sur la zone à colorier. 

5) Couleur forme unique : sert à éliminer les 
effets inesthétiques dus à l'emploi de plu- 
sieurs couleurs (indispensable pour obtenir 
une superposition ). 

6) Effacement-Fin : sans commentaires. 


N.B.: Après une éxécution du programme 
Basic, vous pouvez appeler la routine en 
mode direct avec USR{n), ou POKE, … 





Routine en langage machine 
(RCCI.BIN) 
Description 


Longueur : 1964 octets. 

But : Colorier n'importe quelle forme, avec 
des milliers de motifs possibles (hachures, 
quadrillages, caractères ASCII ou GR$, etc. 
avec possibilité d'agrandir, d’inverser, de 
superposer des motifs. 

Vitesse : Environ 30 fois plus rapide que 
PICTOR. 


Erreurs : Un certains nombres d'erreurs de 
manipulation sont prévues et traitées dans 
le programme, avec affichage de messages 
d'erreurs pour éviter de bloquer l’ordinna- 
teur intempestivement. 





Utilisation 


Que l'on utilise ou non le programme Basic 
ci-dessus, les choses se passent dans l'or- 
dre suivant : 


A - Réservation de place et chargement du 
fichier binaire. 

B - Tracé d’un contour (en BASIC). 

C - Eventuellement, choix d'un motif de 
base pour le ocre (sinon c'est le motif 
précédent qui est utilisé). 

D - Eventuellement, sélection d’un certain 
nombre de modifications qui seront appor- 
tées à ce motif de base (agrandissement, 
inversion, etc.) 

E - Eventuellement, choix d'une possibilité 
de superposition. 

F - Envoi des coordonnées du point initial 
du coloriage. 

G - Appel de la routine. 

H - Retour au B. 





Detail de chaque etape 


A - RESERVATION-CHARGEMENT 
Adresses utiles 


SYMBOLES ROLE ADRESSES 
RELATIVES 
MO ad.ter octet 
zone réservée 
ADou ad.chargement MO +8H100 
RXINI 
MOTIF © ao. pt d'entrée AD + 8H85 
par USR(n) 
MOTIF ad. pt d'entrée AD + 8H95 
par EXEC 
ou .ROUT en LOGO 
TF+127 fin du programme AD + &H6AB 


Vu la longueur totale occupée (&H7AB ou 
1964), il faut choisir MO<=&HD855 


B - Trace d’un contour 


Utilisez le crayon optique, BOX, LINE, etc. 
Le bord de la fenêtre peut constituer une 
partie du contour. 


C - CHOIX DU MOTIF DE BASE (facul- 
tatif) 


a) Mode standard : permet de sélectionner 
un des motifs tout prêts. 

Pour cela, il faut mettre dans le registre 
RSTAND une valeur non nulle : 


* Valeur entre 1 et 19 : choix d’un des 19 
motifs préfabriqués (hachures, etc..). 

* Valeur entre 32 et 127: le motif sera 
x du caractère ASCII correspon- 
ant. 

* Valeur entre 128 et 255: le motif sera 
constitué du caractère GR$ correspondant. 
Dans ce cas, le contenu de RASCII est sans 
importance, les registres RHAUT, RLARG, 
et la table TF sont chargés automatique- 
ment lors de l'exécution. L'utilisateur n’a 
donc que RSTAND à charger dans ce cas. 
{nb : USR(n)) équivaut à “POKE RSTAND, 
N :EXEC MOTIF 1”). 


reuUsR( 10) 








b) Mode utilisateur : permet, soit de réutili- 
ser le motif précédemment défini, soit de 
définir un motif entièrement par l'utilisateur. 
Pour cela, il faut que le contenu de RSTAND 
soit zéro (qui est d’ailleurs la valeur implicite 
de ce registre: donc inutile de charger 
RSTAND dans ce cas). 


Dans ce mode : 


* Soit on veut se servir du motif défini lors 
de l'appel précédent de la routine et aucun 
registre à charger dans ce cas. 

*Soit on veut créer soi- même un motif 
nouveau : faire une petite maquette comme 
pour définir un GR$, mais ici la hauteur est 
libre (de 1 à 127 lignes ), ainsi que la largeur 
(1 à 127 octets, soit 8 à 1916 points ). Le 
produit hauteur par largeur ne doit pas 
dépasser 128 octets. Dans ce cas, l'utilisa- 
teur doit charger lui-même : 


- les registres 
RLARG (largeur du motif de base, en octets) 
RHAUT (hauteur du motif de base, en 
lignes) 


-et la table TF (octets constituant le motif, 
de gauche à droite, et de haut en bas). Le 
registre RASCII reste ici à sa valeur implicite 
de ©. 


*soit on veut créer un motif constitué de 
plusieurs caractères (ASCII ou GR$ ), dans 
ce cas, l’utilisateur doit charger lui-même : 


-le registre RASCII (nombre de caractè- 
res constituant le motif ). 


-la table TF (avec les codes des caractè- 
res). 


NB : ici après exécution de la routine, RAS- 
CII est remis à ©, et TF contient non plus 
les codes des caractères, mais les octets 
constituants ces caractères (à raison de 8 
octets par caractère ASCII ou GR ). 





D-Selection des modifications qui 
seront apportées au motif de base 


Quelle que soit la façon dont le motif de 
base a été créé (voir C), on peut lui apporter 
des modifications en chargeant un ou plu- 
sieurs des registres suivants : 


-RDILH coefficient de dilatation horizonta- 
le : le motif sera obtenu en dilatant le motif 
de base horizontalement. La dilatation 
effective sera toujours selon une puissance 
de deux : par exemple POKE RDILH, 8 et 
POKE RDILH, 9 donneront le même dessin. 


-RDILV idem, mais verticalement, et sans la 
réserve sur les puissances de 2. 


-RINVER si son contenu n’est pas nul, le 
fond et la forme sont inversés (ne pas 
confondre avec l’inversion des couleurs). 


-RREPET le motif sera répété le nombre de 
fois indiqué par la valeur de ce registre ; il 
sera répété l’un au dessus de l’autre, tout 
étant decalé latéralement. 


-RDECAL représente l'amplitude du déca- 
lage à chaque répétition, en nombre de bits. 


NB : à l'initialisation, et aprés chaque exé- 
cution de la routine, ces 5 registres sont 
remis à leur valeur implicite. Tout registre 
qui n’est pas chargé par l'utilisateur avant 
l'appel de la routine est donc à sa valeur 
implicite, ce qui signifie que la modification 
correspondante ne sera pas effectuée. En 
cas de dilatation, de répétition, les registres 
RLARG, RHAUT, et la table TF sont modi- 
fiés automatiquement en cours d'utilisation 
de la routine : l'utilisateur n’a pas à s’en 
soucier. Si les valeurs de RLARG où RHAUT 
dépassent alors les valeurs autorisées (127 
pour chacun, et 128 pour le produit des 
deux) l'exécution s'arrête et un message d’ 
erreur est envoyé. 


La dilatation horizontale n'augmente pas 
forcément la largeur du motif ( ex: 
19191919 par 2 = 11921120) 


—— 


X=USR(S) 






E- Possibilité de superposition 
Comment procéder : 


* faire un premier dessin, le colorier. 

* changer de couleur. 

* faire un second dessin recouvrant en par- 
tie le premier et le colorier. 

Voici le résultat, selon la valeur de RSUPER 
au moment du coloriage du second dessin. 


valeur de RSUPER résultat dans la partie 
commune aux deux dessins. 


0 pas de superposition : le second 
motif remplace l'ancien. 

L superposition simple : les 
deux motifs sont superposés. 

1 superposition avec inversion : 
exemple : hachures + damier 
donne hachures blanches sur 
carreaux noirs et hachures noires 
sur carreaux blancs 


NB : Le registre RSUPER garde la valeur 
qui lui est donnée, jusqu'à ce que l'utilisa- 
teur lui en donne une autre. 


| per tetes 


Ces coordonnées doivent être mises dans 
les registres RXINI et RYINI. Il faut que ces 
coordonnées ndent à un point de 
la zone à colorier, contour exclus. 


RCCI 


10 ”,....lnitialisation 

2e 

14 DATA &HCF00 

16 READ MO:CLEAR 500,M0-1,1:READ MO 

18 AD=H0+256 

20 RXINI=AD:RYINI=AD+2: RSTAND=AD+#H622: 
RASCII=RSTAND+1 : RSUPER=RASCII+1: 
RDILH=RSUPER+1 : RDILV=RDILH+1:RINVER= 
RDILV+1:RREPET=RINVER+1 : RDECAL=RREPET 
+1:RLARG=RDECAL +1 : RHAUT=RLARG+ 1: TF= 
RHAUT+1 

22 PRINT"FAUT-IL CHARGER RCCI.BIN ?(0/N) 
"eRS=INPUTS(1):1F R$="0" THEN LOADH 
"RCCI",AD 

24 MOTIFO=AD+&H85: MOTIF 1=AD+4H95 

26 DEFUSR=NOT F0 

28 DEFGRS(0)=&H36,&H49,&H41,&H41,4H22, 
tH14,8,0 

30 ES=CHR$(27) :EP$=E$+"# ":V$=E$+CHRS (92 

) 

32 DIM 1$(13),T(13):DEFINT I-K,X,Y:1=1 


NB : à l'initialisation et aprés chaque exé- 
cution de la routine, ces deux registres sont 
remis à -1. De plus, lorsque ces registres 
sont à -1 lors de l'appel de la routine, le 
motif est constitué normalement, mais le 
coloriage n'a pas lieu. Conséquences : 


1) Si l'utilisateur oublie de charger RXINI et 
RYINI, le coloriage n’a pas lieu. 

2) L’ utilisateur peut constituer un motif en 
plusieurs appels à la routine : s’il ne charge 
pas RXINI et RYINI, le coloriage ne se fera 
pas. 


G-Appel de la routine 


Il faut que la couleur en vigeur au moment 
de l'appel soit celle du contour que l'on 
veut remplir. 


On peut appeler la routine par : 


- EXEC MOTIF1 ou 

- cs ce a équivaut à POKE RSTAND, 
N :EXEC MOTIF1, à condition d’avoir fait 
au préalable DEFUSR=MOTIFO (voir adres- 
ses correspondant à MOTIFO, MOTIF 1 au A) 


Exemples :( les … correspondent : soit au 
tracé d’un contour 

soit au cl de RXINI et RYINI) 
SCREEN 0, 7 … 


34 DATA RXINI,0,RYINI,2,RSTAND,&H622, 
RASCII, &H623,RSUPER, &H624, RDILH, &H625 
,RDILV,&H626,RINVER, tH627,RREPET, 
&H628, RDECAL, &H629,RLARE, &HbZA, RHAUT, 
LH628B,TF, &H62C 

36 FOR K=1 TO 13:READ T$(K),T:T(K)=T+AD 
:NEXT 

38 FR$=CHR$ (71) :FD$=CHR$ (84) :GOSUB 1100 

ETMET TETE TETE EEE UNE EEE EEE 

| 

44° 

46 *..,.Prograame principal 

48 

50 RESTORE 52:CLS 

52 DATA Choix couleur,Trace au crayon op 

t., Choix sotif,Coloriage, Couleur forse u 

nique, Effacement/Fin 

54 FOR K=1 T0 6 

56 READ M$:LOCATE 5,K-1:PRINT K;M$; 

58 NEXT:LOCATE 0,0,0 

60 A=VAL(INPUT$(1)):1F AC1 OR A>6 THEN 
60 


62 LOCATE 0,0,1 
64 ON A G60SUB 100,200, 300, 400, 500, 600 


66 IF FIN THEN CONSOLE 0,24:CLS:END ELSE 
30 


POKE RSTAND, 3 :EXEC MOTIF1 hachures 
verticales fines 
sur fond blanc 


POKE RDILH, 2 :EXEC MOTIF1 idem mais 
plus épaisses 

et plus espacées 

POKE RREPET, 15:POKE RDECAL, -1 
idem mais 

hachures obliques. 


POKE RINVER, 1 :EXEC MOTIF1 idem mais 
hachures 
ee noires sur fond blanc, peu espa- 


POKE RLARG, 2 :POKE RHAUT, 1 nouveau 
dessin, hachures 


POKE TF, 8&B92010000 :POKE TF+1, 
verticales fines et 

épaisses &B11112200 alternativement 
EXEC MOTIF1 

USR (12) écossais 

POKE RSTAND, 14 damier 16 par 16 
POKE RDILH, 16 

POKE RDILV, 16 

EXEC MOTIF1 


Il faut bien noter qu'on ne charge à chaque 
fois que le ou les registres “utiles“ pour les 
modification désirées. 


68 *HNANSRNNNTNNSENNNNNNANNNENTNTTNENES 

70 ? 

12? 

74 *,.,.Choix couleurs 

76 ? 

100 CLS:PRINT"Coul, Forae, Fond ";" -le 

r nbre entre 0 & 7";" -2eme entre OL 1 

5":INPUT FR,FD 

110 FRS$=CHRS(FR+64-404 (FR)7) } :FD$= 
CHR$(FD+80-324 (FD>7)): CONSOLE 6,24: 
PRINT EP$:;FD$;E$;FR$3; : CONSOLE 0,5 

120 RETURN 

130 ? 

140 ? 


150 ’...Trace du contour au crayon opt. 

180 ? 

200 CLS:FRINT"TRACEZ LE CONTOUR AU * 
“CRAYON":PRINT "Referer :"V$"R"V$ 
“ Interrospre:"V$"I"VS" Finir:"V$"F" 
V$; 

205 60SUB 1000 

210 IF K THEN IF F THEN 230 ELSE 205 

215 X0=X:YO=Y:PSET(X0, YO) 

220 60SUB 1000 





225 1F R THEN LINE -(X0,YO):60T0 205 
ELSE IF 11 THEN 205 ELSE IF F THEN 
230 ELSE LINE-(X,Y):60T0 220 

230 RETURN 

255 ? 


240 ? 

245 *.,.Verif, & aodif. du contenu des 
registres 

250 ? 

300 COLOR 7,4:CLS 

302 N$=INKEVS: PRINT "Pour finir: "V$"F/"V4 

304 PRINT"TAPEZ UN NOM DE REGISTRE" 

306 COLOR 7,4:PRINT 

308 A$="" 

310 X$=INKEVS:1F XS=CHRS(E) OR 1$=" * 
THEN PRINT X$:ELSE 310 

312 IF X$=CHR$(8) THEN A$=LEFTS (AS, LEN 
(A$)-1): PRINT" "SXSSELSE IF X$<2*/* 
THEN A$=A$+X$ ELSE 316 

314 60T0 310 

316 J=0:1F A$="F" THEN PRINT:6070 358 

318 IF A$="" THEN PRINT CHR$(8):T$ (1); 
is 

320 PRINT TAB(10)::COLOR 0,7:1F À$="" 
THEN 326 

322 FOR K=170 13:1F T$(K)=A$ THEN 1=K: 
6070 326 

324 NEXT:PRINT "ADRESSE INEXISTANTE" 
:60T0 308 

326 IF 1>2 THEN V=PEEK(T(I)+J) ELSE V= 
PEEK(T(1))#256+PEEK(T(1)+#1) 

328 PRINT Vi"ou &H";HEXS$(V) ; TAB(30) ; 

330 COLOR 2,0:B$="" 

332 XS=INKEYS:IF X$=CHRS(8) OR X$2=" " 
THEN PRINT XS3ELSE IF X$=CHR$ (10) 
OR X$=CHR$(11) OR X$=CHR$(13) THEN 
340 ELSE 332 

334 IF X$=CHR$(8) THEN B$=LEFTS(B$,LEN 
(B$)-1): PRINT " ":X$:ELSE B$=B$+X$ 

336 G0TO 332 

338 ? 

340 IF B$="* THEN 348 

342 VI=VAL(BS):IF V1<0 THEN V1=256+#V1 

344 IF V1255 AND 123 OR V1>85535 THEN 
PRINT "VALEUR INCORRECTE":G0T0 320 

346 IF 143 THEN POKE T{I),V18256:POKE 
T(D+1,V1 MOD 256 ELSE POKE T{1)+1, 
Vi 


348 1F XS=CHRS(13) THEN 306 ELSE IF X$ 


=CHR$(10) THEN IF A$="TF" AND J<128 
THEN J=J+1 ELSE IF 1<13 THEN 1=I+1 


ELSE ELSE IF A$="TF" AND J>0 THEN 
J=J-1 ELSE 1F 1>1 THEN [=1-1 
350 A$=T$(1) 


352 COLOR 7,4:PRINT:PRINT T$(1)3:1F JC20 
THEN PRINT"+":MIDS(STRS(J),2); 

354 PRINT"/"; 

356 PRINT TAB(10);:COLOR 0,7:60T0 326 

358 PRINT E$;FR$;EP#;FD$ 

360 RETURN 

368 * 

370 ? 

372 ‘Coloriage de l'interieur du 
contour 

374 ? 

400 CLS:PRINT “Pointez l'interieur du ” 
"contour à colorier avec le crayon": 
LOCATE 0,3 

405 60SUR 1000 

410 1F F THEN 420 ELSE IF 11 OR R THEN 
400 

415 GOSUE 1290:1F CSRLIN>3 THEN PRINT: 
PRINT"TAPEZ UNE TOUCHE"; : 
C$=INPUTS$ (1) 

420 RETURN 

425 

430 

435 ’...Couleur unique 

440 

500 CONSOLE 6,24:PRINTEP$;FR$; : CONSOLE 
0,5 

505 RETURN 

510 ? 

519: 

520 ‘...Etfacement et/ou fin 


= Fr 1 

600 GOSUB 1100 

605 PRINT'Encore un dessin ? (O/N)":FIN= 
INPUT$(1)="N" 

610 RETURN 

995 NTTTTIT TITI RE EITEREEELEEEEEE 


996 
997 * 
998 *...Lecture d’un point au crayon 


Le k 

1000 A$=INKEY$:K=0 

1010 AS=INKEYS:1F PTRIG THEN 1030 

1020 R=A$="R":11=A$="1":F=AS="F":KER OR 
11 OR F:1F K THEN RETURN ELSE 1010 

1030 INPEN X,Y:1F YC48 THEN 1010 


1040 RETURN 

1050 ? 

1060 ? 

1070 ’.,.Couleurs de l'ecran 

1080 ? 

1100 CONSOLE 0,24:CLS:PRINT EP$:FR$;EP$; 
FD$;: CONSOLE 0,5 

1110 LINE(0,48)-(319,48) 


1120 RETURN 

1130 

1140 ? 

1150 ”...Appel de la routine RCCI 


1160 ? 
1200 POKE RXINI,X6256:POKE RXINI+1,X MOD 


256:POKE RYINI,Y8256:POKE RYINI+1, 
NOD 256 

1210 LINE(0,48)-1319, 48) 

1220 EXEC HOTIFI 

230 RETURN 


Conception de la routine 
Carte d'implantation 


1 256 octets réservés PILES U ( pour 
2 133 octets d 

e données (RXINI, RVI- 
NI, MOTIFS STANDARDS) » 
3 544 octets (programme de constitu- 
tion et/ou modification du motif) 
4 893 octets (programme de coloriage 


proprement dit) 
5 138 octets (10 registres + 128 
octets de TF) 


1 = adresse réservation 

2 = adresse c ement (AD ou RXINI 

3 = adresse d'éx ion (MOTIFO/MOTIF1) 
4 = PAINTO/PAINT1 

5 = fin du programme 


ph pes La pe directement dans la 
euxième partie du programme, avec EXEC 
PAINTO (PAINTO = AD+BH2AS) 


Fonctionnement 


fière PARTIE: (création motif): assez 
simple. Se reporter aux commentaires du 
programme source. Signalons simplement 
que la modification ou le rajout de nouveaux 
motifs standards est trés facile car ils ont 
été prévus. 


2éme PARTIE : (coloriage) : il se fait par 
tracés successifs de segments pr dns 
Les octets du motif sont lus dans TF et 
recopiés dans la mémoire écran. L'octet 
couleur est lu dans COLOUR (registres du 
moniteur). 

Le même programme permet de colorier 
aussi bien en descendant qu’en montant, 
grâce à un parmètre valant +1 ou -1 selon 
le cas (SENS dans les commentaires). 


Dans les commentaires, les mots gauche et 
droite s'entendent en descendant. Lorsque 
le coloriage se fait en montant, il faudrait 
inverser gauche et droite, ou alors renverser 
l'ecran ! 

L'exploration se fait toujours vers la gauche 
en descendant (à droite en montant). 


Les parties qui sont laissées en attente 





pendant que d’autres sont coloriées, sont me. En plusieurs endroits (recherche d'une un trou du motif, ou au contraire sur un 
mémorisées dans la pile U (zone réservée _extremité d'un segment, test de fin coloria- point coloré qui n’est pas pour autant l'ex- 
en tête du programme) les zones sont ge), il faut vérifier que le point ou l'on se  trémité du segment. 

appelées INVOLUTION dans les commen- trouve n'est pas situé sur un des segments C'est le sous-programme TSTREC qui est 


taires. mémorisés dans la pile U. En effet, si on est 
L'utilisation de motifs à trous complique sur un segment dèjà colorié, le test de chargé d'explorer la pile U pour vérifier cela. 
singulièrement la conception du program- couleur n’est pas fiable car on peut être sur Gilles Charreyre 


PARAMETRES UTILISES PAR LA ROUTINE (résumé) 


Valeur au 
NOM ADRESSE Valeurs 
du registre —— possibles Signification 
RXINI (ou AD) AD Le coloriage n'aura pas lieu 
Abscisse du point initial du coloriage 
RYINI EN ENe Q-199 Ordonnée du point initial du coloriage 














RSTAND AD+&H 622 remis à Utilisation du motif précédent ou défini par utilis 
© 1-19 Choix d’un des 19 motifs préexistants 
32-127 Le motif sera le caractère ASCII correspondant 
RASCII AD+&H 623 remis à Le motif est déterminé par le contenu de RSTAND 
Le motif est formé d'autant de caractères ASCII (codes ds TF) 
1 message d'erreur sera affiché 


Pas de superposition 
Superposition simple 
Superposition avec inversion là où il y a chevauchement 
1 message d'erreur sera affiché 
Pas de dilatation horizontale 
Coefficient de dilatation horizontale 
Idem, mais verticalement 
Pas d’'invertion 
1 (ou autre + @) inversion des points “forme” et “fond” du motif 
Pas de répétition 
Le motif est répété (verticalement) autant de foi 
Pas de décalage 
Décalage d'autant de bits vers la droite (à chaque répét.) 
Décalage d'autant de bits vers la gauche (à chaque répét.) 
Largeur du motif (en nombre d'octets) 


1 message d'erreur sera affiché 
(ainsi que si LARG X HAUT 128) 


Hauteur du motif (en nombre de lignes 


1 message d'erreur sera affiché 
(ainsi que si LARG X HAUT »128) 


Cette table (1 à 128 octets possibles) contient 
les octets constituant le motif 


conserve la 


valeur donnée 1 (ou autre >) 


—1 (ou autre «Q) 


par l'utilisateur 


RSUPER AD+&H 624 
RDILH AD+&H 625 


RDILV AD+8&H 626 


RINVER AD+&H 627 
RREPET AD+&H 628 


RDECAL AD+&H 629 
RLARG AD+&H 62A 


RHAUT AD+&H 62B 
AD+&H 62C 

T4 

TF+127 


N.B.- Le registre COLOUR est utilisé pour la couleur (adresse absolue &H6O3B) 





remis à 


remis à 


remis à 


remis si 


restent 
à la 
valeur 
prise 

en cours 
d'exé- 
cution 









1-127 










1-127 
»127 


toutes 














6809 Language Module 1.0 
RCCI 


TITLE RCCI 


t Reaplissage d’un Contour Couleur 


603D  PLOTX EGU  $603D 

603F  PLOTY EQU  $603F 

E821  GETP EQU  $E821i 

6038  COLOUR EQU  $603B 

6038 FORME EQU  $6038 

E7C3 PROC  EQU  $E7C3 

E803  PUTC EQU  $E803 

60CF  PTGENE EQU  $60CF 

602D  USERAF EGU  $602D 

0013 DEF  EQU  &19 

à Coord. pt init. color. et sauvegarde S 
B500 FFFF RXINI FDB -1 
B502 FFFF RYINI FDB -1 
B504 SAVS RMB 2 
t Tables octets constit. les 19 aotifs 

B506 01 AA Si FCB  1,$AA 
B508 01 88 52 FCB  1,$88 
B50A 01 80 S3 FCB  1,$80 
B50C 02 FF 00 54 FCB  2,-1,0 
B50F 04 FF 00 00 S5 FCB  4,-1,0,0,0 
B513 00 
B514 08 FF 00 00 Sb FCB  8,-1,0,0,0,0,0,0,0 
B518 00 00 00 00 
B51C 00 
B51D 08 FE FF FF S7 FCB. 8,9FE,-1,-1,-1,-1,°1,°1,"1 
BS21 FF FF FF FF 
8525 FF 
B526 04 EE FF FF SB FCB  4,$EE,-1,-1,-1 
BS2A FF 
B52E 02 FF AA 59 FCB  2,-1,$AAÀ 
BS2E 04 FF 88 88 S10  FCB  4,-1,$88,$88,$88 
B532 88 
B533 08 FF 80 80 S11 FCB  8,-1,$80,$80,$80, $80, $80 
B537 80 80 80 
B53A 80 80 FCB  $80,$80 
B53C 08 OA 05 OA S12 FCB  8,$A,5,$A,5, $AF, $5F 
B540 05 AF 5F 
B543 AF 5F FCB  $AF,$5F 
B545 04 FF BBFF S13 FCB  4,-1,$BB,-1,$EE 
8549 EE 
B54A 02 AA 55 514  FCB  2,$AÀ,$55 
B54D 04 88 55 22 515 FCB  4,$88,455,$22,$59 
B551 55 
B552 08 80 41 22 Sib  FCB  8,$80,$41,$22,$14,8,$14 


B556 14 08 14 


B559 22 41 

B55B 08 18 3C 7E 
B5SF FF FF 7E 
B562 3C 18 

B564 04 70 00 07 
B568 88 

B569 08 88 11 11 
B56D 11 88 44 
B570 44 44 


FCB 
517  FCB 
FCB 
518  FCB 
519  FCB 
FCB 


6809 Language Module 1.0 


RÇCI 


B571 
B572 95 97 99 9B 
B576 9E 
B577 A3 AC B5 BA 
B57B BD 
B57C C2 CB D4 D9 
B580 DC Ei EA F3 
B584 FB 


B585 34 7E 
B587 81 02 
B589 26 2B 
B58B Eb 05 
B58D 33 
B591 E7 56 
B593 20 06 


8595 34 7E 
B597 33 8D 0591 
B59B 10EF 8D FF64 
B5A0 86 60 
B5A2 1F  8B 

60 


B5A4 Ab 56 
BSA6 27 JF 
B5AB 81 20 
BSAA 25 06 


522,541 
8,518,83C,47E,-1,-1,97E 


$3C,$18 
4,570,0,7,$88 


8,508,511,511,511,588,544 


544,544 


à Adresses relat, debut des tab. prec. 


( EQU 
DS FCB 


FCB 
FCB 
FCB 
FCB 


à A/ENTREES 


DS-1 
51-2,52-2,53-7,S4-1,55-2 


Sé6-2, 57-1,58-2,59-2, 510-7 
511-2,512-7,513-1,514-1 


515-2,516-7,517-7,518-7 
519-7 


à entree par USRin) 


MOTIFO PSHS 
CHPA 
BNE 
LDB 
LEAU 
STB 
BRA 


U,Y,X,DP,B,A 

#2 

CODERR Si arg. incorrect 
3,X 
TF,PCR 
-10,U 
FENTR 


RSTAND 


t entree directe par EXEC x ou .ROUT x 


NOTIFI PSHS 
LEAU 

FENTR STS 
LDA 
TFR 
SETDP 


U,Y,X,DP,B,A 
TF,PCR 

SAVS, PCR 
4560 

A,DP 

#60 


t B/CHARGEMENT TF (tab. octets forae) 


LDA 
BEQ 
CHPA 
BLO 


-10,U  RSTAND 
UTILIS 
432 


CASO31 


à Bi/cas standard ASCII 


B5AC A7 C4 STA  ,U Code ASCII ds TF 
BSAE Cb 01 LDB #1 Nbre de car. 
B5BO 20 39 BRA  CHASC 
B5B2 81 13 CASO31 CMPA  #DEF 
B5B4 2F 17 BLE  STANDA Si 0€(A)<20 

à B2/cas code non defini (si 19€(A)€32) 
B5ES 30  8D 0003 CODERR LEAX  TCODER,PCR 
B5BA 16 0549 LBRA  ECRITU Message d'erreur 
B5BD 0F TCODER FCB 15 
BSBE 43 4F 44 45 FCC  /CODE NON DEFINI/ 


B5C2 20 4E 4F 4E 
B5Cé 20 44 45 46 
BSCA 49 4E 49 


t B3/cas standard non ASCII 


BSCD 30 8D FFAO STANDA LEAX 
B5Di Eë 86 LDE 
B5D3 30 65 LEAX 
B5D5 46 80 LDA 
B5D7 A7 SF STA 
B5D9 44 DECA 
B5DA Eb 86 CHTF  LDB 
B5DC E7 Cé STE 
BSDE 4A DECA 
B5DF 2C F9 BGE 
B5E1 88 O1 LDA 
BSE3 A7 SE STA 
B5ES 20 45 BRA 
t B4/cas TF 
B5E7 Eb 57 UTILIS LDB 
B5E9 27 3F BEQ 
icas ASCII 
B5SEB E7 9€ CHASC STB 
BSED Ci 10 CHPB 
B5EF 1022 0184 LBHI 
B5F3 30 C5 CARACT LEAX 
B5F5 86 08 LDA 
B5F7 34 06 PSHS 
B5F9 Eb 82 LDB 
B5FB 2B 07 BM! 
BSFD 109€ CF LDY 
B600 CO 20 SUBB 
B602 20 05 BRA 
B604 109€ 2D CARUT LDY 
B607 CO 80 SUBB 
B609 4F ADCAR CLRA 
B60A 58 ASLB 
B60B 49 ROLA 
B60C 58 ASLB 
B60D 49 ROLA 
B60E 58 ASLB 
B60F 49 ROLA 
Bbi0 C3 0008 ADDD 
B6i3 31 AB LEAY 


1,PCR 
A,X 
B,X 
,X+ 
-1,U 


a,X 
AU 


CHTF 
#l 
-2,U 


NODITF 


{(X) pte tab. aotif 
{A)=long. table 
RHAUT 


) 

)Transfert tab. du 
)sotif ds TF 

} 


RLARG 


reaplie par utilisat. 


-9,U 
MODITF 


-2,U 
té 
TROPOC 
BU 

+e 

B,A 
ee 
CARUT 
PTGENE 
432 
ADCAR 
USERAF 
4580 


+8 
D,Y 


RASCII 
Si pas aode ASCII 


RLARG 


+ de 16 Car.=trop 
(X) pte dern.code 
8 oct./caract. 


(B)=code ASCII 
) 
) 
) 
) 
) 


) 

)On aet dans Ÿ 
)l’adresse du der- 
)nier octet du 


)caractere 
) 


) 
} 
) 
) 


B615 A6 SE 
B617 Eb A2 
B619 E7 84 
B6lB 30 86 
B6iD 6ÀA E4 
B6iF 26 F6 
B621 35 06 
B623 5A 

B624 26 CD 
B626 8 08 
B628 A7 SF 


B62A Ab JE 
B62C 102B 0147 
B630 Eb SF 
Bb32 102B 0141 
B636 3D 

Bb37 1083 0080 
B63B 1022 0138 


B63F 31 CB 
B641 50 AB 
B643 Ab 59 
B645 1027 FF6D 
B649 81 O1 
B64B 27 SF 
B64D 86 02 
B64F 34 26 
B651 68 SE 
B653 Ab SE 


B655 81 02 
B657 26 15 


8659 Ab A2 
B65B 44 

B65C 44 

Bb5D 44 

BOSE 44 

B65F AB A4 
Bébi 84 OF 
B6b3 2h 09 
B66S 5A 

Bébé 26 Fi 
B66B 64 SE 
B6bA GA  E4 
B6bC AE 62 
B6bE Ab SE 
B670 102B 0103 
B674 Eë SF 
B676 3D 

B677 1083 0080 
B67B 1022 00F8 


LDA 
BOCTCA LDB 
STB 
LEAX 
DEC 
BNE 
PULS 
DECE 
BNE 
LDA 
STA 


BOCTCA 
A,B 


CARACT 
#8 
“1, U 


)Transfert de ces 


)8 oct. dans TF 
} 


Au caract. preced, 


RHAUT 


à C/ MODIFICATIONS DS TF (dilat., inver. 


t repet. avec decal.) 


NODITF LDA 
LBMI 
LDB 
LBMI 
NUL 
CHPD 
LBHI 


-2,U 
TROPOC 
-1,U 
TROPOC 


#128 
TROPOC 


RLARG 


RHAUT 


t Ci/dilatation horizontale 


DILH  LEAY 
LEAX 
LDA 
LBEG 
CHPA 
BEG 
LDA 
PSHS 
ASL 
LDA 


CHPA 
BNE 


D,U 
D,Y 
-7,U 
CODERR 
ti 
FDILH 
#2 
Y,B,A 
-2, 


1 
és 


#2 
FRCHPA 


{Ypte fin TF act. 
(Npte fin TF fut. 
RDILH 


fin dil.h, si(A)=1 
2 oct. pour 1 act. 


Largeur doublee 
RLARG 


)5i larg. avant 
)dilat. }1 


t Cia/rech. si les oct. de TF sont pairs 
t (c.a.d. fornes de 2 quartets identiq.) 


BPAR LDA 
LSRA 
LSRA 
LSRA 
LSRA 
EURA 
ANDA 
BNE 
DECB 
BNE 
LSR 
DEC 
LDX 

FRCHPA LDA 
LBMI 
LDB 
HUL 
CHPD 
LBHI 


,Y 


a 
#$0F 
FRCHPA 


BPAR 
-2,U 
5 

2 
-2,U 
TROPOC 
-1,U 


#128 
TROPOC 


Si { oct. pas pair 


)cas parite: larg. 
)pas doublee,et 
)X=Y 

RLARG 


RHAUT 


K 
2 

co 
L2 Qi 
7 
vel 
si 





B67F 10AE 62 
B6B2 Ab A2 
B684 Eb E4 
B6BE 34 04 
B688 Cb 04 
B6BA 34 04 
B6BC 44 

B68D 34 O1 
B6BF 56 

B690 35 01 
B692 5b 

B693 6A E4 
B695 26 F5 
B697 E7 82 
B699 32 61 
B69B 6A E4 
B69D 26 E9 
B69F 3Z bb! 
B6AL 6A bi 
BéA3 26 DD 
B6AS 64 59 


B6A7 32 64 
BEA9 16 FF7E 


BEAC Ab SA 
B6AE 1027 FF04 
B6B2 3D 

B6B3 1083 0080 
B6B7 1022 00BC 
BéBB 30 CB 
B6BD Ab SF 
B6BF 34 16 
BéCI Ab SA 
B6C3 81 O1 
B6C5 27 JA 
B6C7 Eb 5€ 


B6C9 4A 
B6CA 3D 
BECB 34 04 


B6CD Ab SE 
BECF 40 
B6DO Eb Ab 
BéD2 E7 86 
B6D4 4C 
B6DS 26 F9 


BéD7 Eb E4 
B6D9 34 04 
B6DB Ab SE 


à Cib/dedoublement des octets de TF 


LDY 2,5 
CHOCTF LDA  ,-Y 
LDB ,S 
PSHS B 
DBLOCT LDB #4 
PSHS B 
BDBL LSRA 
PSHS CC 
RORB 
PULS CC 
RORB 
DEC ,5 
BNE  BDBL 
STB ,-X 
LEAS 1,5 
DEC 5 
BNE  DBLOCT 
FDBLOC LEAS 1,5 


DEC 1,5 
BNE  CHOCTF 
LSR -7,U 


(A)=dern.oct.TFact 
(B)={ou2selon par. 


) 

) 

) 

Les bits du quart 
)de droite sont 
)doubles 

) 

) 

) 

Oct.ais fin TFfut, 


)Iden avec quart. 
)gauche si 1apar. 


)On passe à l’oct. 
)preced. ds TF 
Coeff.dilat. /2 


t Cic/on va voir s’il faut encore dilat. 


LEAS 4,5 
LBRA  HODITF 


t C2/dilatation verticale 


FDILH LDA -6,U 
LBEQ  CODERR 


HUL 
CHPD 4128 
LBHI  TROPOC 
LEAX  D,U 
LDA  -{,U 
PSHS  X,B,A 
LDA  -6,U 
CHPA #1 

BEQ  FDILV 
LDB  -2,U 
DECA 

MUL 

PSHS B 


) 

)Nbre tot. d’oct. 
)ds TF apres dil.v 
) 

) 

(N)=#finTF apr. dil 
RHAUT 


RDILV 


) 


)Nbre d’oct. en + 
)crees par la dil. 
)par ligne de TF 


t C2a/deplaceat vers le bas d’1 ligne de 
t TF pour inserer les nelles lignes 


DEPLAC LDA  -2,U 
NEGA 

BDEPL LDB  A,Y 
STB A, 
INCA 
BNE  BDEPL 


RLARG 


)ier oct. dern. 
)ligne deplacee 


A l’oct, suiv. 


t C2b/duplication d’1 ligne au dessus 


t d’elle-aese 


LDB 5 
PSHS B 
LDA -2,U 


)Nbre d’oct. a 
)creer 
RLARG 


B6DD 40 

B6DE Eb 82 
B6EO E7 86 
B6E2 GA E4 
B6E4 26 FB 


B6Eb 31 Ab 
B6EB 30 86 


B6EA 52 61 
BÉEC 6A 61 
B6EE 26 EQ 
B6FO Ab SF 
B6F2 Eb SA 
B6F4 3D 

B6FS 1083 007F 
B6F9 1022 007AÀ 
B6FD E7 SF 
B6FF 32 61 


B701 35 16 
B703 A6 58 
B705 27 09 
B707 34 14 
B709 63 82 
B70B 5A 

B70C 26 FB 
B70E 35 14 


B710 31 C4 
B712 Ab 5€ 
B714 27 7B 
B716 E8 SF 
B718 3D 

B719 34 04 
B7IB EB SF 
B71D 2B 58 
B7IF E7 SF 
B721 Ab SE 
B723 3D 

B724 1083 0080 
B728 22 4) 


B72A Ab SE 
B72C 4A 


B72D Eb A6 
B72F E7 86 
B731 4A 

B732 2C F9 
B734 A6 SD 
B736 34 02 
B738 27 2D 
B73A 2B 16 


NEGA 
BDUPLI LDB 
STB 
DEC 
BNE 





“a | ) 

A, oct. d’1 ligne 
A )copies au-dessus 
BDUPLI ) 


à C2c/on va reccoasencer avec la ligne 


à precedente 


LEAY  A,Y # 
LEAX A, 
LEAS 1,5 
DEC 1,5 
BNE  BDEPL 
LDA  -I,Ù ) 
LDB  -6,U ) 
MUL INelle hauteur 
CHPD  #127 )de TF 
LBHI  TROPOC ) 
Stunt ) 
LEAS 1,5 
à C3/inversion forse/fond 
FDILV PULS  A,B,X 
LDA  -S,U RINVER 
BEQ  FINVER 
PSHS  X,B 
BINVER CON A 
” DECB 
BNE BINVER 
PULS B,X (Upte fin TF 


à C4/repetition avec ou sans decalage 


FINVER LEAY 


Ù {Y)pte deb. TF 


LDA -4,U  RREPET 
BEQ  FMODTF 
LDB -I,U  )Nbre de lignes a 
MUL rajouter à TF 
PSHS B ) 
ADDB -{,U  RHAUT 
BNI  TROPOC 
STB  -{,U  Nelle hauteur 
LDA -2,U  RLARG 
MUL 
CHPD  #128 
BHI  TROPOC 
à Câa/repet, avec/sans dec. d’UNE ligne 
COPIOC LDA -2,U  RLARG 
DECA 
BCOPIE LDB  A,Y ) 
STB A, )iere ligne TF co- 
DECA )piee apres fin TF 
BGE  BCOPIE ) 
LDA -3,U  RDECAL 
PSHS À 
TSTDEC BEQ  FDECAL 
BMI  DECD 


A suivre. 





PR90-055 


LéOteCiqUe 





La petite imprimante Thomson 





CLICHE THOMSON - Michel MATHIEU 


C'est l'imprimante bas de 
gamme à tout faire. Elle 
imprime en 40 colonnes, fait 
du graphique et de la reco- 
pie d’écran avec l’instruc- 
tion SCREENPRINT. 


La PR 90-055 remplace à la fois la PR 
90-040 et Ta petite imprimante thermique. 
Elle nécessite pour fonctionner le contrôleur 
de communication qui contient l'interface 
parallèle nécessaire à l'exception des MO5 
avec extension QDD qui en possède une. Il 
faut rajouter également un câble de liaison 
muni, du côté imprimante, d’un connecteur 
type Centronics et, de l’autre, soit un 
connecteur canon 25 broches pour les MO5 
autonomes et les TO7, soit un connecteur 
D14 type MSX pour les MOS avec extension 
QDD et les TO9. C'est une imprimante 
matricielle à entraînement par friction utili- 
sant des rouleaux de papier ordinaire de 
125 mm de large. Elle est muni d’une cas- 
sette ruban interchangeable et possède sa 


propre alimentation intégrée (pas besoin de 
transfo externe). La vitesse d'impression 
est de 35 caractères par seconde. La den- 
sité d'impression de 10, 5 caractères au 
pouce. 


T07/T07.70/M05 





Raccordement de la PR 99.955 


1ÉEDbPhile TEOmhilerEe 


TEüphile TEÜphile TEüphile 


Programmation 


Les possibiliés offertes par cette impri- 
mante sont les suivantes : 


inversion de l’ordre d'impression. 
PRINT #1, “ phile“CHR$(20)"TEO“ 
imprimera 

TEOphile. 

Cadrage à droite d’un texte. 

PRINT #1, “TEOphile“CHR$(18) ; 
imprimera 

TEOphile 

Caractères allongés. 

L'envoi d'un CHR$(14) fera passer en mode 
caractère double largeur. 


Densités en ligne de 6 ou 9 lignes au pouce 
préprogrammées. 


Génération de N interlignes par 
PRINT +1, CHR$(11)CHRS(N) 


Mode graphique 320 points. La densité 
horizontale est alors de 84 points au pouce 
et de 72 points au pouce verticalement. 


Prix public maximum conseillé : 1 300 F. 
caractères normaux 


caractères allongés 





DESSIN 


Cet ensemble de procédures permet de 
dessiner sur l'écran. 

La tortue est pilotée au clavier avec le 
groupe de touches suivant : 


E = AVANCE 

S = TG 

D = TD 

X = RECULE 

* = change la couleur du crayon 

/ = change la couleur du fond graphique 
Z = LC (lève crayon) 

W = BC 


+ = augmente le pas 
- = diminue le pas 


La touche Q permet de terminer le tracé du 
dessin. 


Le dessin est mémorisé sous la forme d’une 
liste contenant la suite des caractères de 
commandes frappés au clavier. Cette liste 
(:DESS) est initialisée à () dans la procédure 
de lancement DESSIN. Le pas est arbitraire- 
ment initialisé à 1@. 


Lorsque le dessin est terminé, il peut être 
reproduit avec le rapport d'homothétie de 
son choix puisque la procédure REFAIT a 
un paramètre qui est le pas du dessin. La 
liste est à nouveau interprétée et la suite de 
commandes qu'elle contient est exécutée. 


Une possibilité intéressante est la repro- 
duction du dessin en commençant par la 
fin à l’aide de la procédure DEFAIT. Que 
va-t-on obtenir exactement ?..essayez ! 


Un problème se pose cependant avec la 
procédure DEFAIT : il n'est plus possible 
de retrouver les couleurs originales puisque 
le changement de couleur d'un segment 
vient après son tracé. DEFAIT règle ce 
problème en filtrant les changements de 
couleurs. Dans le même ordre d'idées, les 
changements de pas vont produire des 
effets assez surprenants, ils ne sont cepen- 
dant pas filtrés par la procédure. 


DESSIN création d’un nouveau dessin 
REFAIT P exécution normale d’un dessin 


créé par un pas : P 
DEFAIT P dessin exécute “à l'envers” 
avec un pas : P 
RANGE N X sauvegarde du dessin 
réalisé sous le nom : N 
RAMENE N ramène le dessin sauvé 
sous le nom : N 


Exercices 
en Logo plus 


Nombreux sont les lecteurs 


qui nous reprochent de 
négliger le langage Logo 
pourtant doté de beaucoup 
de vertus que n’a pas Basic. 
TEOphile va essayer de rat- 
traper le retard en comptant 
tout de même un peu sur 
vous pour nous faire part de 
vos travaux, de vos trucs, 
des stages, des séminaires, 
etc, bref de quoi en faire une 
rubrique régulière. 

Pour commencer, quelques 
exercices de Jean Perrotin 
écrits en LOGO plus. 


Ce programme utilise la procédure TANT- 
QUE décrite dans les utilitaires 


DEF récupère dans “A les commandes de 
la liste “DESS en filtrant les caractères “* et 
“/ et en commençant par la fin puis appelle 
l’interpréteur de commandes LIDESS. 

DEF est récursive et recommence le travail 
avec la liste “DESS amputée de son dernier 
élément. 


POUR DEF : DESS 

SI VIDE ? : DESS (STOP) 

DONNE “A DER : DESS 

TANQUE (OU EGAL ? : À “* EGAL ? : À “/) 
(DONNE “ DESS SD:DESS DONNE “A 
DER :DESS) 

LIDESS :A 

DEF SD :DESS 

FIN 


POUR REF :DESS 

SI VIDE ? DESS (STOP) récupérer les élé- 
ments de la liste “DESS et les passe à 
l’interpréteur LIDESS 


DONNE “A PREM :DESS 
LIDESS :A 

REF SP :DESS 

FIN 


POUR DEFAIT : P lance l'exécution du des- 
sin à l'envers 

DONNE “PAS : P 

Re 1 FCF O BC DEF :DESS 


POUR REFAIT : P lance l'exécution 
du dessin 

DONNE “PAS : P 

RE 1 FCF O BC REF :DESS 


POUR DESSIN initialisé. appelle la saisie de 
VE FENETRE 

DONNE “DESS ( MT commande COM 
FCC 1 BC 

DONNE “PAS 10 

COM 


FIN 


POUR LIDESS : A interpréteur de com- 
mandes 


SI EGAL ? :A “E (AV :PAS) 

SI EGAL ? :A “D (TD 10) 

SI EGAL ? :A “S (TG 10) 

SI EGAL ? :A “X (RE :PAS) 

SI EGAL ? :A “* (FCC CC + 1) 

SI EGAL ? :A “/ (FCF CF + 1) 

SI EGAL ? :A “Z (LC) 

SI EGAL ? :A “W (BC) 

SI EGAL ? :A “+ (DONNE “PAS :PAS + 1) 
is ? :A “- (DONNE “PAS :PAS - 1) 


POUR COM 


DONNE “A LISCAR 
Saisie des commandes à l’aide de la 
primitive LISCAR. 
SIEGAL ? :A: a (STOP) 
DONNE “DESS MD :A :DESS 
LIDESS :A 
SEP de l’interpréteur de commandes. 


FIN 


POUR RANGE :N :X 
SI EGAL ? :X 1 (DETRUIS :N) 
SAUVE :N RNOMS 
FIN 
Permet de sauver le dessin réalisé sous 
le nom :N. Le paramètre :X sert à détruire le 
fichier au préalable. 
Exemples : nouveau 
RANGE “MAISON © 
Mise à jour d’un fichier existant : RANGE 
“MAISON 1 


AMELIORATIONS POSSIBLES : si le dessin 
est important, la liste “DESS devient trop 
lourde à manipuler. Une nets pourrait 
compacter la liste: DESS. Il faudrait par 
exemple remplacer les séquences E E E.. 
E par n E (n représentant le nombre de E). || 
serait évidemment nécessaire de modifier 


fichier dessin 





en conséquence soit les procédures 
DEFAIT ET REFAIT, soit l'interpréteur de 
commandes LIDESS. 


Petit travail 
sur les listes 


Ces quelques procédures sont sans préten- 
tion et permettent seulement de manipuler 
les listes en Logo. Elles peuvent cependant 
être le point de départ d’un programme 
plus important. Le jeu est très simple : on 
dispose de trois listes nommées PIECE 
SAC et POUBELLE. Les procédures SAISIS 
et DEPOSE permettent de saisir un objet 
dans la POUBELLE ou dans la PIECE (et de 
le mettre dans son SAC), de DEPOSER un 
objet présent dans le SAC soit dans la 
PIÈCE soit dans la POUBELLE. 


Les procédures utilisables sont donc : 
INIT initialise les listes PIECE, SAC et POU- 


BELLE 

S ou SAISIS :L :P saisie l’objet “L dans le 
lieu “P et le met dans le SAC 

D ou DEPOSE :L :P prend un objet du SAC 
et le dépose dans le lieu “P 


si: L = “TOUT, la totalité des objets est 
transférée. 


Avant chaque transfert, la présence de l’ob- 
jet dans le lieu “P ou dans le SAC est 
contrôlée. Si l'objet est absent, le message 
“impossible est envoyé. Après chaque 
transfert, le contenu des trois listes est 
affiché sur l'écran. 


POUR INIT 


DONNE “PIECE (TABLE CHAISE FLEURS) 
Initialisations des trois listes 

DONNE “SAC (CLE CLOU PEIGNE GLACE) 
DONNE “POUBELLE (PAPIER) 

nn affiche le contenu sur l'écran 


POUR SAUFOBJET :L :P 

SI NON PRESENT :L :P (RENDS :P) 

Si EGAL? PREM:P:L (RENDS SP :P) 
(RENDS PH PREM :P 


SAUFOBJET :L SP :P) 
FIN 


suppression de “L dans la liste “P si “Lne 
figure pas dans “P, on ne fait rien si “L est 
en tête de la liste “P, on le supprime, sinon 
on recommence le travail sur la liste “P 
amputée de son premier élément. 


POUR PRESENT :L :P 
SI VIDE ? :P (RENDS “FAUX) 
Si EGAL? PREM:P:L (RENDS VRAI) 
S PRESENT :L SP :P) 
IN 


Fonction booléenne : rends FAUX si is 
“L est absent de la liste “P. Si “L est en tête 
de la liste “P, la fonction rends VRAI sinon, 
on recommence le travail avec “P amputée 
de son premier élément. 


POUR DEPOSE :L :P 

SI EGAL ? :L “TOUT (DONNE :P PH :SAC 
CHOSE :P DONNE “SAC ( INFOS STOP) 
SI PRESENT :L:SAC (EC :P DONNE :P 
MD :L CHOSE :P “SAC 

SAUFOBJET :L :SAC INFOS) (EC “...impos- 
Etui 


Procédure DEPOSE. 

L'objet “L, s’il est dans le sac, est déposé 

dans la pièce “P et est supprimé du SAC. Si 
‘L =“TOUT, la totalité du SAC est déposée 

en “P et le SAC est vidé. 


INFOS 

TAPE (dans le SAC … :) EC :SAC 

TAPE (dans la PIECE. :) EC :PIECE 

TAPE (dans la POUBELLE.) EC :POU- 
RE 


Ecrit à l'écran le contenu des 3 listes 
La primitive TAPE permet d'écrire sans aller 
à la ligne 


POUR SAISIS :L :P 
SI EGAL?:L “TOUT (DONNE “SAC 
PH:SAC CHOSE :P DONNE :PQ INFOS 
STOP) 
SI PRESENT :L CHOSE :P (DONNE “SAC 
MD :L :SAC DONNE :P 
SAUFOBJET :L CHOSE :P INFOS) (EC “ 
a 

N 


Permet de taper S à la place de SAISIS 


POUR :L :P 
DEPOSE :L :P 
FIN 


Permet de taper D à la place de DEPOSE 


Nombres puissants 


Recherche des nombres puissants dans un 
intervalle donné. 

Un nombre entier a, de n chiffres, est dit 
puissant s’il est égal à la somme des puis- 
sances nièmes de ses chiffres. 


Exemple : 
3 est puissant car 3 = 31 
37Q est puissant car 37© = 33 + 73 + O3 


Procédure SAISIS. 

L'objet “L, s’il est dans la PIECE “P, est 
déposé dans le SAC et est supprimé de la 
PIÈCE :L. Si :L = “TOUT, la totalité du lieu 
“P est mis dans le SAC et le lieu “P est vidé. 


POUR S :L :P 
SAISIE :L :P 
FIN 


PROCEDURES UTILISEES : 

CP, CHERCHE, PUISSANTS, PUISS, SOM- 
CHIP, PUISSANCE 

LANCEMENT : 

CP suivi des bornes de l'intervalle de 
recherche 


CHERCHE.PUISSANTS : si:INF est puis- 
sant alors affiche :INF sur l'écran et 
met :INF dans la liste :L puis poursuit la 
recherche en remplaçant :INF par :INF + 1 


POUR RECHERCHE. 

PUISSANTS :L :INF :MAX 

SI EGAL ? :INF (:MAX + 1) (EC 0 EC:L 
STOP) 

SI PUISS :INF (TAPE :INF TAPE (...) CHER- 
CHE.PUISSANTS MD :INF:L:INF + 1 
Er 7 aies asia L':INF + 1 


FIN 


PUISS : fonction booléenne qui rends VRAI 
si :N est puissant 


POUR PUISS :N 

RENDS EGAL ? :N SOMCHIP :N COMP- 

TE :N 

FIN 

SOMCHIP : fonction qui rends la somme 
des puissances :P des chiffres d’un 
entier :M . Cette fonction est récursive. Elle 
calcule la puissance :P du premier chiffre 
du nombre :M et ajoute à ce résultat le 
résultat du même travail effectué sur le 
nombre :M amputé de son premier chiffre 
F ‘7 jusqu'à épuisement des chiffres 
e :M. 


POUR SOMCHIP :M :P 

SI VIDE ? :M (RENDS O) 

RENDS SOMME PUISSANCE PREM :M :P 
SOMCHIP SP :M :P 

FIN 


PUISSANCE : fonction récursive qui calcule 
la puissance :N du nombre :X. 


POUR PUISSANCE :X :N 
SI EGAL ? :N O (RENDS 1) 
D PROD :X PUISSANCE :X :N - 1 


CP : procédure de lancement de la recher- 
che des nombres puissants de l’interval- 
le :INF :MAX. 


POUR CP :INF :MAX 
© binaire ( :INF :MAX 


Jean Perrotin 
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Interface VHD/T07 


D’empirisme en expériences 
de laboratoire, le vidéodis- 
que sort peu à peu du brico- 
lage pour devenir un instru- 
ment didactique et promo- 
tionnel en attendant d’avoir 
une bonne place dans les 
loisirs électroniques, place 
que ses nombreuses quali- 
tés lui assignent logique- 
ment et que des raisons 
industrielles et d’inertie lui 
retirent pour le moment. 
TEOphile profite de la sortie 
d’une interface de pilotage 
pour vidéodisque VHD pour 
faire un point. 


Après l'échec du standard RCA (à aiguille) 
et le demi-succès du Laservision (Phillips/ 
Pioneer) c'est au tour de JVC, le père du 
VHS de lancer un autre standard, le VHD. 
Deux standards donc, l’un à base de laser, 
assez proche de la technologie Compact- 
Disc audio et l'autre à système capacitif. 
Les deux sont connectables à un micro- 


VHD100 


LOGI VISION 





ordinateur qui en enrichit considérablement 
les possibilités d'exploitation. Agissant 
comme une super télécommande et un 
séquenceur, le micro permet d'utiliser tou- 
tes les ressources de l'accès direct à une 
image ou une séquence, l’interactivité d'un 
clavier, l'incrustation vidéo (au moins dans 
le cas des Thomson), deux canaux sonores 
exploitables séparément et une qualité 
d'images très supérieure au meilleur 
magnétoscope grand public. 


Le système VHD de JVC 


C'est un système qui se veut meilleur mar- 
ché, et plus “grand public” que le Laservi- 
sion. ll est doté en standard d’une télécom- 
mande infrarouge très élaborée contenant 
un clavier numérique et toutes les fonctions 
disponibles. Par contre, la face avant de 
l'appareil, ne possède que quelques 
voyants et trois touches. 


Les disques sont contenus dans un carter 
protecteur amovible lors de l'insertion dans 
le lecteur. Chaque face fait une heure envi- 
ron. Le raccordement s'effectue indifférem- 
ment à un téléviseur par une prise antenne 
ou à un moniteur par une prise BNC pour la 
vidéo et une prise Cinch pour les deux 
canaux du son. La qualité de l’image et du 


son est sensiblement améliorée par rapport 
au magnétoscope mais le disque à l'inverse 
du Laservision s’use assez vite. C’est pour- 
quoi, par exemple, l'arrêt sur image est 
limité à quelques dizaines de secondes. 
Une piste du VHD contient 4 images. Cela 
signifie que pour avoir une image fixe 
comme une diapositive, il faut enregistrer 
quatre fois la même image. Le nombre total 
d'images opérationnelles est alors inférieur. 
Le VHD possède à l'arrière un connecteur 
non standard pour être piloté par un con- 
trôleur externe type micro-ordinateur. C'est 
à cette fin que Logivision (1) 69 @7 39 7@ a 
développé une interface VHD 1@Q pilotant 
le lecteur de vidéodisques JVC par l’inter- 
médiaire d’un TO7/7@. 


L'interface Logivision 
L'interface est contenue dans un boitier 
indépendant avec un cordon d'alimentation 
secteur d’une part et un câble plat vers un 
connecteur standard d'extension pouvant 
se loger dans l’un des 3 endroits prévus à 
l'arrière d'un TO7/7@. Il est enfin relié au 
vidéodisque par un câble à cinq conduc- 
teurs assurant le transit des informations 
dans les deux sens. 


L'exemplaire que nous avons testé était 
accompagné d'une disquette avec un DOS 





modifié et 


augmenté des primitives 
d'échanges avec le vidéodisque. 


Deux programmes sont fournis sur la dis- 
quette : 
SPJVC.BAS et COMMJVC.BAS 


Sous-programme de 
gestion du lecteur JVC 
dans des applications 
personnelles 
(SPJVC.BAS) 


Ce sous-programme permet de passer au 
lecteur les commandes les plus utilisées à 
savoir : 


PLAY Lecture avant 

PAUSE Arrêt sur image noir 

STOP Arrêt sur image 

PAGE X Recherche de l’image X 
CHAPX Recherche du chapitre X 
TIMEX Recherche de l’image 

située au temps X 

?IMA Lecture du numéro d'image 
?CHA Lecture du numéro de chapitre 
?TEM Lecture du timing du disque 
+ Lecture image + 1 

> Lecture image - 1 

EJEC Arrêt du disque avec éjection 


Ce programme est à “merger” avec l'appli- 
cation voulue grâce à l'ordre BASIC: 
MERGE “SPJVC.BAS” 


e |lest implanté entre les lignes 1 et 149 et 
fait appel à des routines assembleurs 
situées dans le DOS spécifique pour cette 
utilisation et contenues sur la disquette. 


L'application doit débuter à la ligne BASIC 
1000 La zone située entre les lignes 140 et 
1900 pouvant servir à placer les sous-pro- 
grammes particuliers à l'application. 


Le Er avec le sous-programme 
SPJVC.BÀS se fait à partir de la variable A$ 
et un saut à la ligne 19. 


Ainsi la demande de mise en lecture se fait 


par la Hs ; 

A$ = “PLAY” :GOSUB 199 

l’arrêt sur image : 

A$ =“STOP“ :GOSUB 19@. 

e Cas des ordres : ?IMA, ?CHA, ?TEM: 


Ces ordres entraînent une réponse de la 
part du lecteur, celle-ci est communiquée à 
l'utilisateur par le positionnement de varia- 
bles particulières qui sont : 


IMA pour le numéro de page * 
CHAP pour le numéro de chapitre 
TEMP pour le numéro de timing 


Ainsi le résultat de la commande : 
A$ = “ ?IMA“ : GOSUB 199 


positionne la variable IMA. 


e Le numéro de page est compris entre 1 
et 45900 

e Le numéro de chapitre est compris entre 
1 et 99 

e Le numéro de timing est compris entre 
1s et 59 : 59mm 

pos, a TIMING de 10’35“ la variable TEM 


Cas des ordres : PAGE, CHAP, TIME : 


La syntaxe de ces ordres est la suivante : 
— La recherche d'un numéro d'image se 
fait par un ordre du type : 


“PAGE X” 
X étant un nombre de 5 chiffres. 


*Nota : Une page contient deux images. 
La recherche de l'image 199 se fait : 


A$ =“PAGE 9109" : GOSUB 199 


l’image 1999 : 

A$ = “PAGE 91900" : GOSUB 199 

La recherche de chapitre se fait par un 
ordre du type : 

“CHAP Y” 

Y étant un nombre de 2 chiffres ainsi : 


la recherche du chapitre 3 se fera par : 
A$ = “CHAP 03 :GOSUB 199 
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la recherche de timing se fait par un ordre 


du NES - 
“TIME Z” 
Z étant codé sur 4 chiffres ainsi : 


la recherche du timing 1°33“ se passera par 
A$ =“TIME 2133“ :GOSUB 19 


EX: utilisation des 
codes simples pour 
rechercher une 
séquence 


Pour chaîner les ordres plus facilement, les 
données seront transmises sous forme de 
chaînes de caractères. 


La programmation d’une séquence entre 
deux pages 1599 et 2390 se fera comme 
indiqué ci-dessous : 


IMA1$ = “21500” 
IMA2$ = “22000” 
GOSUB 899 où 890 


est l'adresse de début du sous-programme 
correspondant. 


Programme test liaison 
JVC :COMMJVC.BAS 


Ce programme permet d'entrer en direct 
les ordres définis, plus haut. Il suffit de 
taper l'ordre après chaque “ ?”. Celui-çi 
étant exécuté après l'appui sur “ENTREE”. 


Cette interface est très souple d'emploi et 
doit permettre la réalisation de didacticiels 
de bons niveaux, des stations de renseigne- 
ments interactives, etc. Il reste qu'il faut 
également mettre les images sur disque. 
Vifi international s'y emploie déjà, d’autres 
devraient suivre aussi bien en technique 
VHD qu'en technique Laservision. 
Logivision (1) 69 27 39 7©@. 


Camille Louis 








Les systèmes-experts 
principes et exemples 


Pour ne pas détailler, on peut dire qu'avec 
les systèmes-experts l'informatique passe 
du traitement des données numériques (ou 
réduites à des nombres) au traitement des 
connaissances ce qui du point de vue 
sémantique fait complètement basculer la 
discipline d'esprit et impose un regard nou- 
veau sur le savoir-faire des experts. A partir 
de là tout est (presque) possible. Cepen- 
dant ces techniques et les premiers succés 
acquis ne doivent pas laisser croire à l’ex- 
trême facilité des méthodes employées. Ce 
livre est un peu là pour nous le rappeler. II 
s’agit en effet d’un ouvrage de présentation 
pratique de la méthodologie des systèmes- 
experts et il constitue une excellente intro- 
duction pour un public relativement large. 
La qualité du livre est d’abord liée à l'expé- 
rience pédagogique et aux recherches de 
son auteur mais, aussi au travail de syn- 
thèse réalisé. 


L'architecture du livre permet d'aborder 
progressivement les principales notions. 
Pour cela l’auteur commence par expliquer 
le rôle et l’organisation des systèmes- 
experts avec pour illustration des extraits 
de dialogue avec MYCIN (système-expert 
de médecine, l’un des pionniers avec DEN- 
DRAL et PROSPECTOR). Le chapitre sui- 
vant est justement consacré à la description 
détaillée et référencée de quelques dizaines 
de réalisations ce qui donne à l’auteur une 
bonne idée de la variété des domaines 
d'application mais aussi de quelques systè- 
mes généraux (systèmes-experts vides). Le 
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Les systèmes expert H. FARRENY 
(ed : CEPADUES) 


Issus directement des recher- 
ches en intelligence artificiel- 
le, les systèmes-experts 
connaissent actuellement un 
considérable élan d'intérêt car 
ils semblent permettre l’infor- 
matisation de diverses taches 
jugées jusque là hors du 
champ traditionnel de l’infor- 
matique. Ces taches, celles 
qui exigent une expertise, relè- 
vent de domaines fort divers 
comme le diagnostic, la prévi- 
sion, la prise de décision, la 
reconnaissance et même la 
conception ou la stratégie. La 
grande difficulté de ces 
domaines ou plutôt de ces 
fonctions à automatiser c’est 
A bi d’algorithmes struc- 
rés. 


troisième chapitre est lui plus théorique et 
par là-même fondamental. || décrit en effet 
les principes de base des moteurs d'infé- 
rence qui ont pour fonction d’enchainer la 
phase d'évaluation et la phase d'exécution 
sur l'ensemble des règles contenues dans 
la base de connaissances. Un exemple fort 
pédagogique illustre le fonctionnement du 
moteur d'inférence. Ensuite dans un autre 
chapitre sont décrites les différentes straté- 
gies d’enchainement des règles dans les 
moteurs d'inférence. Bien qu'il s'agisse de 
schémas de moteurs (donc des simplifica- 
tions de la réalité) on aborde sans difficulté 
les notions essentielles du chaînage-avant 
et du chaînage arrière. Dans une annexe on 
trouve des programmes en Basic, Lisp et 
Logo d'illustration de ces schémas de 
moteur. Le dernier chapitre est entièrement 
consacré à une étude détaillée de MYCIN 
surtout pour l'aspect exemplaire et donc 
pédagogique de ce système- expert. Une 
série d’annexes et une importante biblio- 
graphie terminent l'ouvrage. 


Destiné à un public trés varié, spécialistes 
ou non, cet ouvrage est en plusieurs points 
remarquables. || a les qualités d’un ouvrage 
de référence par sa clarté et largeur de vue. 
Les futurs lecteurs, et il serait souhaitable 
qu'il y en ait beaucoup, trouveront rassem- 
blés une somme de notions fondamentales 
qui constituent une excellente initiation à 
ce domaine de l'informatique que l’on ne 
peut plus ignorer : les systèmes-experts. 


H. FARRENY 





Fil 


Petits compléments 
à la cartouche Prolog FIL 


La cartouche Prolog de Fil que vous avez 

pu découvrir en avant-première dans 
FEOphile sera disponible courant mai, 
FIL dixit. Voici déjà quelques complé- 
ments utiles pour le traitement des listes 
et quelques fonctions arithmétiques 
classiques 


A propos des listes 
Concaténer 

= =«4 CONCINIL, 
=2=412:CONC((-XO :*X1), 
CONC(X1, *X2, *X3). 


"X0, *X0). 
*X2, (*X0 ;"X3)) : 


Placer un élément en 
tête de liste 
=1= 6 CNS(XO, *X1, (*XO, *X1)). 


Appartenance 
=1=5APP(X0, (X0, *X1)). 
X0, (X1, “X2)) : APP(*XO, *X2). 


=2=«8APP( 


Non appartenance 

=1= 3 NONAP(XO0, NIL). =2=<11-NONAP(* 
XO, (X1 :"X2) : DIFF(-XO, *X1)& NONAP(XO, 
*X2). 


Segments adjacents 
dans une liste 


=1=41ADJ-DANS((X0, *X1), (*XO, *X1, * 
X2)). =2=«16ADJ-DANS((*X0, *X1), (*X2, * 
X3)) : ADJ-DANS((*X0 ;*X1), *X3). 


Longueur d’une liste 
=1=<LONG(NIL, 0). =2=12:LONG(("XO, 
*X1), "X2) : LONG(X1, “X3)& +(°X3, 1, *X2). 


Segment initial d’une liste 


=1=43SEGM-INI((XO,  *X1),  *X2): 
CONC((XO ;°X1), *X3, *X2). 
Segmentation d’une liste 
=1=9SEGMENT(-X0, *X1): SEGM-TER( 
X2, *X1)& SEGM-INI(XO, *X2). 

Segment terminal 

d’une liste 

=1=43SEGM-TER((XO,  ‘X1), *X2): 
CONC(-X3, (°XO ;°X1), *X2). 

Inverser 

=1=4INVINIL, *XO, *X0). =2=412INV(( 


XO ;*X1), “X2, *X3) : INV(X1, (*XO ;*X2), *X3). 
=3=4A10INV(A, B, | IL, *XO). 
=4= 4INV(NIL, *X0, *X0). =5=<12INV(( 
X0 ;*X1), *X2, *X3) : INV(X1, (*XO ;"X2), *X3). 
=6=«410INV((A, B, C), NIL, *X0). 

=1=<7INVERSER(XO, *X1) : INV(XO, NIL, 


-X1). =2=7INVERSER(XO, *X1) : INV(XO, 
NIL, “X1). 
Permuter  =1=<PERMUT-D(NIL,  NIL). 


=2=«12»PERMUT-D((*X0 ;"X1), "X2) : DELE- 
TE(XO, *X2, *X3)& PERMUT-D(*X1, *X3). 
=1=6INSERE(XO, "X1, (*XO ;"X1)). 


=2=«12INSERE(XO, (*X1 ;"X2), (°X1 ;"X3)) : 
INSERE("XO, *X2, *X3). 


=1=<GPERMUT(NIL, NIL). 
MUT((XO :*X1), “X2) : 
INSERE(-XO, *X3, *X2). 
Quelques fonctions 
arithmétiques 

Plus Grand Commun Diviseur 
=1=5PGCD(X0, 0,  ‘X0): CUT. 
=2=412-PGCD(XO, *X1, *X2) : MOD(XO, * 
X1, "X3)& PGCD(-X1, “X3, "X2). 

Plus Petit Commun Multiple 
=1=46PPCM(XO, *X1, *X2): PGCD(XO, 


=2=«12»PER- 
PERMUT(X1, *X3)& 


*X1, “X3)& “(XO, *X1, *X4)& DIV(X4, *X3, 
*X2). 

Produit 

=1=411PROD(XO, *“X1, ‘X2): VAR(XO)& 
DIV(-X2, *X1, *X0)& CUT. =2=«41 1» PROD 
X0, “X1, *X2) : VAR(X1)& DIV(X2, *XO, “X1)& 
CUT. =3=@PROD(X0, *X1, “X2): “(XO, 
*X1, "X2)& CUT. 

Somme 


=1=411»SOM(X0, *X1, *X2) : VAR(XO)& -(* 
X2, *X1, “X0)& CUT. =2=1:11»SOM('XO0, *X1, 


*‘X2): VAR(XI)& -(X2, “X0, *“X1)& CUT. 
=3=(9 SOM(XO, "xX1 , *X2) ‘ -("X0, "Xl, : 
X2)& CUT. 

Factorielle 

=1=<4FACT(0, 1): CUT. =2=«17>FACT( 
X0, *X1) : «(0, “XO)& -(*X0, 1, “X2)& FACT(*X2, 


XD UND, °XS, NT). 
Armand Biancheri 













tr, 
NET 


= Lists 
DELA PEUT 


RS PEU 
RIRES 





02,B7,60,32,86, 02,B7,60,35,C6, 31, BD, E8, 1 


Ce petit programme profite des While et 


Ri:::::::::2:1:1:::1:1:1122:::212:2::::::: 
* 


5 : ‘x E, C6, 33, BD, E8, 1E, C6, 35, BD, E8, 1E, C6, 33, BD 
Wend non utilisés par le Basic 1.9 pour ** VHILE ET VEND COMME INSTRUCTIONS * 58, 18, CO, 51, BD, ES, 1, 50 
créer deux bruits à inclure dans vos oeu- *# SONORES POUR BASIC 1.0 & TO7/70. * 50 
vres "x PAR J-P ZANIER (1985). * 60 ARR EREEEEEERERERERERERELEREREX 
5 ** POUR THEOPHILE. * XADAPTATION TO7 32K: AUCUNE. 
Le ramme s'adapte aux TO7/79 et aux Nr à 
TO7, TO7 16K et TO7 16K + 8K, bien véri- TRADE *ADAPTATION TO7 24K: 


** -LIGNE 10 : REMPLACER &HDEFF 
PAR &HBEFF, &HDFOO PAR &HBFOO, * 
&HDF75 PAR &HBF75, &HDF76 PAR * 
&HBF76, &HDFA3 PAR &HBFA3, ET * 
&HDF PAR &HBF. * 
—DANS LES DATAS DES LIGNES 20 * 


ef que l'on pren les donn és cd &HDEFF: FORI=&HDFOO TO8&HDF75: REA 
incipe, on réactive les deux mots-cl DAS: POKEI , VAL (" 8H" +AS8 ) : NEXT: POKEAH6233, & 
While et Wend en fournissant l'adresse des H7E: POKE8H6234 , &HDF : POKESH6235, &HOO: FORI 
rammes 0 j aper =&HDF76 TO8&HDFA3: READAS : POKEI , VAL (* &H'+A 
usclez Vore Bass Théophile ni D HA $) : NEXT: POKE&H6236, &H7E: POKE&H6237, &HDF: 
POKE&H6238, &H76: END 
avoir tapé et sauvegardé ce programme (en 20 DATA86,03,B7,60,37, BD, DF,29,86,03,B7, 
adap j 60,37, BD, DF,29,86,03,B7,60,37, BD, DF,29,8 
RUN RP ee douces don de 6,03,B7,60,37, BD, DF,29,86,02,B7,60,37,BD 
: fr À n , DF,29,39,86,02,B7,60 
deux nouvelles instructions sonores. While 
donnera un bruit de canon-laser et Wend 
un bruit court, une sorte de toc ! 


ET 30: 
REMPLACER DF PAR BF. 


**ADAPTATION TO7 8K 
"* -LIGNE 10 : REMPLACER &HDEFF 

PAR &H7EFF, &HDFOO PAR &H7F00O, * 
*  &HDF75 PAR &H7F75, &HDF76 PAR * 
*X &H7F76, &HDFA3 PAR &H7FA3, ET * 
*  &HDF PAR &H7F. * 
* -DANS LES DATAS DES LIGNES 20 * 
*x ET 30: Le 
* * 
* * 


30 DATA32,B7,60,34,B7,60,35,C6,31, BD, E8, 
1E, C6, 32, BD, E8, 1E, C6, 33, BD, E8, 1E,C6,34,B 
D, E8, 1E, C6, 35, BD, E8, 1E, C6, 36, BD, E8, 1E, C6 
, 37, BD, E8, 1E, C6, 38, BD, E8, 1E, C6, 39, BD, E8, 
1E, C6, 3A, BD, E8, 1E, C6, 3B, BD, E8, 1E,C6,3C,B 
D, E8, 1E, C6, 3D, BD, E8, 1E, 39 

40 DATA86,07,B7,60,37,86,02,B7,60,34,86, 


J.P Zanier 


, 
, 
, 
, 
, 
, 


REMPLACER DF PAR 7F. 
LES: :11111111:111112:1:1212:::): 





ersonnalisez 
votre DOS 


100 CLEAR2000: SCRBENO, 7, 7: CLS: DIMC(3, 15) *ECRAN : "; 


Que vous ayez un CLED 89 K ou un 32@ K, 
ce programme vous permet de changer 
l'en-tête et les couleurs de base choisies 
pour l'écran. 


Le ramme modifie le DOS 1.9 ou le 
1.1. On choisit l'ordinateur que l’on 
utilise, puis le DOS que l'on a. Ensuite on 
choisit si on veut changer l'en-tête du DOS, 
(si oui on choisit |’ B voulu pour l'affi- 
chage de l'en-tête), les couleurs de l'écran 
(3 pour un SCREEN, de @ à 7 pour le TO7, 
et de @ à 15 pour le TO7/7@). Puis le tout 
est mis sur le DOS de la disquette. Sauve- 
le progamme, éteindre puis rallumer 
ordinateur, recharger le DOS modifié pour 
voir les résultats. 


J.P Zanier 


MLl:::111111:1:1111111111111111111:: 


‘+-- NODENDOS. Pour TO7 et T07/70 --# 
‘+- Avec DOS 1.0 (simple densite) -* 
‘#- ou DOS 1.1 (double densite) -# 


60 '#-- (c) J-P ZANIER (12/1985) 

70 

80 "HAXEEERENENERENERENERENEEEREEELEEES 
90 





: AXT=80: PRINT" Introduisez la disquette c 
ontenant le DOS a modifier (entete, co 
uleurs, et node d'affichage de l'ente 
te) puis appuyez sur une touche.":R 
ES$=INPUT$(1): PRINT: PRINT'Patientez...":P 
RIST 
110 AS$(12="TO07 Disk BASIC 1.1 

Copyright (c) 1984 by Microso 
ft "+CHRS (10) 
120 AS(2)="T07 Disk BASIC 1.0 

Copyright (c) 1983 by Microso 
ft "+CHRS (10) 
130 RESTORE: FORI=1T03: FORJ=0T015: READC(! 
,J):NEXT)J, 1 
140 PRINT"Avez-vous un TO7 ou un T07-70 
(172) *: 
150 R$=1INPUTS (1): R=VAL(RS) : IFR<10RR>2GOT 
0150ELSEPRISTR 
160 IFR=1THENSUP=7 
170 IFR=2THENSUP=15 
180 PRINT 
190 PRIST'Avez-vous le DOS 1.1 ou le DOS 

1.0 (1/0) ? ”:; 

200 R$=INPUTS (1) :R=VALCRS) : IFRÇOORR)> 1GOT 
0200ELSEPRINTR 
210 IFR=1THENDO=1ELSEDO=0 
220 PRIST 
230 PRINT"Voulez-vous changer le texte d 
* entete du DOS (O/N) ? "; 
240 VS=INPUTS (1): IFVS<»>"O"ANDVS <>" N"GOTO 
240ELSEPRINTVS 
250 IFVS$="0" THENCH=1ELSECH=0 
260 IFCH=1THENPRINT:PRINT"ATTRBO,0 (1) A 
TTRB1,1 (2) ATTRB1,0 (3) ATTRBO,1 (4) p 
our le texte d'entete : "; : ELSEGOTO280 
270 RS=INPUTS (1): R=VAL(RS) : IFRÇOORR>4GOT 
0270ELSEPRISTRS : AT=R 
280 PRINT:PRINT"'COULEUR DU POURTOUR DE L 





290 INPUTP: IFP<OORP>SUP THEMPRINT" 1MPOSS 
IBLE" : GOTO290 

300 PRINT'COULEUR DE L'ECRAN : "; 

310 INPUTE: IFECOORE>SUP THEBPRINT" IMPOSS 
IBLE" : GOTO290 

320 PRINT"'COULEUR DE L' ECRITURE : "; 

330 INPUTS: IFS(OORS>SUP THEBPRINT" 1MPOSS 
IBLE" : GOTO290 

340 PRIST 

350 1FCH=0GOTO0440 

360 INPUT"TEXTE D'ESTETE" ;TS$ 

370 IFAT=1THENTS=CHRS (27) +CHRS (76) +TS: MX 
T=XXT+2: GOTO410 

380 IFAT=2THENTS=CHRS (10) +CHRS (27) +CHRS( 
79)+TS+CHRS (27) +CHRS (76) : HXT=MXT +5: GOTO4 
10 

390 IFAT=STHENTS=CHRS (27) +CHR$(78)+T8+CH 
RS (27) +CHRS (76) : MXXT=MXT+4: GOTO410 

400 IFAT=4THENTS=CHRS (10) +CHRS (27 ) +CHRS( 
77)+TS+CHRS (27) +CHRS (76) : AXT=MXT+5 

410 IFLEN(TS$)>MXT THENPRINT"TROP LONG" :G 
OT0360 

420 IFLENCTS)CMXT THENTS=TS+" " 

430 TS=LEFTS(TS, 100) : GOTO450 

440 IFDO=1THENTS=AS$ (2) ELSETS=AS (1) 

450 G$=CHRS (27) +CHRS(C(3, P) )+CHRS (27) +CH 
RS(32)+CHRS(C(2,E) )+CHRS(27)+CHRS(C(1,S) 
)+CHRS(12)+TS+CHRS (10) 

460 IFDO=0THENDSKOS0, 0,6,GS$ 

470 1FDO=1THENDSKOS0O, 0,4,G$ 

480 PRINT 

490 END 

1000 DATA64,65,66,67,68,69,70,71,112,113 
.114,115,116,117,118,119 

1010 DATA80,81,82,83,84,85, 86,87, 120, 121 
122, 123, 124, 125, 126,127 

1020 DATA96,97,98,99, 100, 101, 102, 103, 128 
,129,130,131,132, 133, 134, 135 








Suppression du 
beep clavier 





ramme adopte le même principe D711211112221122222212222).22))) R, &HDEFF: X=&HDFO0: Y=&HDF: Z=0: V=6: CLSELSE 





Ce 0 
. . n GOTO 
Uni emment. Mais, cette fois-ci, à x GESTION DU BEEP CLAVIER PAR LES ; 20 FORI=X TOX+11:READAS: POKEI, VAL ("’&H'+A 
ile est employé à supprimer le Beep 3 ‘* INSTRUCTIONS BASIC VHILE ET VEND * s): NEXT: FOKESNG20 . 126: POKBAH02S7, 1: POKE 
ñ ñ 4" POUR BASIC 1.0 SUR TO7 OU TO7/70 * 8H6238, V: POKE&H6233, 126: POKE&H6234, Y: POK 
clavier et Wend à le rétablir. | - VEND : BEEP CLAVIER PRESENT. * E&H6235, Z: END: DATAC6,01,F7,60,73,39,C6,0 
:- WHILE : SUPPRESSION DU BEEP. * 0,F7,60,73,39 
7 2 * 30 
B 'AXAXAEALALALAERARERERERAREERERÉTÉEREX 40 "KXAXANANAEXANALENENERERERELELELX 
J.P Zanier ° ! 50 ‘*ADAPTATION TO7 32K : TOUT SE* 
10 INPUT"TO7(1) TO7+16K(2) T0O7/70(3) ";T 60 ‘x*PASSE COMME SI VOUS AVIEZ UNx* 
: IFT=1THENCLEAR, &H7EFF: X=&H7FO00: Y=&H7F:2Z 70 "xTO7/70, DONC REPONDEZ 3 A LaAx* 
=0:V=6: CLSELSEIFT=2THENCLEAR, &HBEFF: X=&H 80 ‘xQUESTION DU DEBUT. * 
BF00: Y=&HBF : Z=0: V=6: CLSELSEIFT=3THENCLEA 90 *HAXXAEXERXAERAEARERELALARERARELX 
Ce TEOTRUC fait suite aux STRUTCAS CLS: SCREEN2, 0, 0: ’ SCRUTDSK" TEOPHILE" 
TO7 et MOS5 parus dans les numéros 12 ATTRB1,0:LOCATE O, 1: PRINT’ SCRUTDSK" 
Novembre 1985 et 01 Mars 1986. Bien que ATTRB 0,0:PRINT:PRINT 
peut-etre moins excitant (?) que l'inspection INPUT"FICHIER AVEC SUFFIXE" ;QS 
d'une cassette, il est souvent utile de OPEN ‘'1",1,QS:CLOSE 
retrouver les 3 adresses d'un fichier OPEN "D",1,Q$,1:FIELD#1, 1 AS AS$ 
BINAIRE logé sur une disquette. En ligne GET#1,2:H$=AS$:  GET#1:LS=AS 
12@le 1er OPEN a pour but de vérifier GOSUB280: LG=Y 
l'existence du fichier. En ligne 130 on ouvre GET#1,4:HS$=AS: GET#1:LS=AS 
x id à accès rs “<' lis Re GOSUB280: AD=Y 
enregistrement est 1 octet. ongueur GET#1, LG+9: H$=AS : GET#1:LS=AS 
de notre fichier se trouve sur les octestss 1 GOSUB280: EX=Y: PRINT 
LT octo de US X=AD: GOSUB250: PRINT" DEBUT= "VS 
resse de début en octets 3 et 4 (soi X=AD+LG-1:GOSUB250:PRINT"FIN = "VS 


enregistrements 4 et 5), quant à l'adresse 
d'eculien elle est tout à la fin. Toujours la 
merhe remarque ceçi n’est valable que pour 
les fichiers binaires obtenus avec SAVEM VSSHRTS CI) 


“200”, ad1,ad2,ad3. 
à Do IFLEN(WS)<4 THEN WS$=" 0" +W$: GOTO260 
Simple !! RETURN ; 


R. CAILLAT Y=256%XASC(CH$) +ASC(LS$) : RETURN 


X=EX: GOSUB250:PRINT''EXEC = ‘'WS$ 










Quel nombre vient après 
1.70141209E38 





Tout langage informatique 
fait appel à des paramètres, 
appelés pour sa part deux 
piles, la pile de données et 
la pile de retour. 


Voyons d’abord comment les 
langages autres que FORTH 
gèrent le passage de para- 
mètres entre les différentes 
parties du programme. 


— en BASIC : le passage de paramètres 
est réalisé à l’aide de variables. Ces varia- 
bles sont de deux type, alphanumérique ou 
numériques. Une variable est définie pour 
l'ensemble du programme. 


Exemple : INPUT A$ - PRINT AB (1) 


_— en LOGO: le passage de parètres est 
réalisé sous forme d'arguments déclarés à 
la suite du nom de la procédure les utilisant 
et sont affectés à des variables dites “loca- 
les” qui n’ont d'existence qu'à l'intérieur de 
la procédurer. On peut donc utiliser les 
mêmes noms de variables dans des procé- 
dures différentes. Ces variables (expression 
impropre à LOGO) représentent des mots, 
des nombres ou des listes. 


Exemple : POUR POLYGONE : TAILLE 


_— en ASSEMBLEUR: le passage de 
paramètres peut se faire de trois manières. 
La première consiste à réserver des adres- 
ses fixes et à faire transiter les valeurs à 
affecter aux différents registres par ces 
adresses. La seconde manière consiste à 
affecter directement les registres à l'aide 
d'instructions de chargement. La dernière 
méthode fait appel aux différentes piles. Le 
micro processeur du 6829 disposant de 
deux piles, il devient commode de passer 
les données par la pile utilisateur. 


Exemple : 

première méthode  LDD $6E3A 

seconde méthode  TFR X,D 

troisième méthode  PULU,D ou LDD,U++ 


Notion 
de parametres 


C'est cette dernière méthode qui est uti- 
lisé par le langage FORTH. 


Bien entendu, FORTH exploite également 
le passage de paramètres par l'intermé- 
diaire de variables et de constantes, mais la 
pile de données reste encore le moyen le 
plus pratique. Ses avantages sont divers. 
Faisons une comparaison entre l'exécution 
d'un mot FORTH et d’un sous-programme 
assembleur en prenant la routine moniteur 
PUTC$. En assembleur, cette routine est 
exécutée en appelant l'adresse d'exécution 
correspondante au début du moniteur (voir 
manuel de l’assembleur TO7 ou MO5) et en 
ayant chargé au préalable le registre accu- 
mulateur B avec le code du caractère à 
afficher. 


Exemple : LDB #65 - JSR PUTCS 
affiche le caractère “A” 


En FORTH, on dépose sur la pile de don- 
nées le code du caractère à afficher puis on 
exécute EMIT. 


Exemple : 65 EMIT affiche le caractère “A” 


Ainsi, même en faisant appel aux routines 
du moniteur sous assembleur, nous som- 
mes obligés de nous préoccuper du registre 
à affecter, alors qu'en FORTH, le mot qui 
traitera la ou les données fonctionne un 
peu à la manière d’une boîte noire. On sait 
ce qui y entre, ce qui en sort éventuelle- 
ment, mais nous n'avons aucun souci 
quand à la manière dont ces données sont 
traitées. Dans notre exemple, EMIT ne ren- 
dait pas de données. D’autres mots FORTH 
traitent des donnée et en rendent, ce qui 
est le cas notamment des opérateurs 
arithmétiques : 


3 7 +réalise la somme de 3 et de 7 et laisse 
le résultat sur la pile de données. Cette 
nouvelle donnée peut être traitée par un 
autre mot ou affichée. 


Mais que sont devenues les données primi- 
tives, à savoir 3 et 7 dans notre exemple 
précédent ? Elles sont perdues. Mais rassu- 
rez-vous, si vous vouliez les conserver de 
manière transitoire pour les utiliser à nou- 
veau dans la suite du traitement, FORTH 
dispose de nombreux opérateurs de pile 
permettant la duplication, rotation des don- 
nées, etc. Ces opérateurs sont les sui- 
vants : 


A ? DUP DDROP DDUP DOVER DROP DROT 


DSWAP DUP 
HILO OVER PICK R 
SWAP SWAPDROP 


Mais contrairement aux autres auteurs d’ar- 
ticles ayant pour sujet le langage FORTH , je 
ne m'étendrai pas sur leur fonctionnement. 
Ceux qui désirent avoir des détails se rap- 
porteront au manuel de référence FORTH 
pour THOMSON (M05 et T07) pages 9 à 18. 


La gestion de la pile 
de données 


L'empilage de une ou plusieurs données 
est réalisé simplement en tapant les don- 
nées les une à la suites des autres, ceci 
dans la base numérique courante qui est, à 
l’initialisation, la base numérique décimale. 


Exemple : 3 empile le nombre 3 
4 5 27 empile successivement les nombres 
45et27 


La pile de données FORTH est de type 
PUSH-DOWN. On peut s’en faire une idée 
assez exacte en comparant chaque cellule 
16 bits contenant une donnée à une 
assiette. Chaque assiette posé?e sur la pile 
recouvre celle précédemment déposées. 
Ainsi, seule sont accessibles les données 
les plus récemment déposées. 


Exemple : 35,12,22,17+ affiche la somme 
de 22 et 17 


ll reste donc sur la pile, en commençant par 
le sommet, les ombres 39 (somme de 22 et 
17, le nombre 35 était en quatrième posi- 
tion, il est “remonté” d’une position, c’est à 
dire est devenu le troisième élément dans 
la pile après exécution de l'addition. Pour 
ceux qui ont le FORTH THOMSON sous la 
main, le mot .S permet de visualiser de 
manière non destructive le contenu des 
piles de données et de retour. 


ROLL ROT SQUISH 


Mais voyons plus en détail comment les 
données sont disposées physiquement 
dans la pile de données et d'abord à quelle 
adresse se situe cette fameuse pile. Le 
système FORTH dispose de deux mots 
donnant accès aux paramètres contrôlant 
la pile de données : 


— SP G qui délivre la valeur du pointeur 
de pile FOTH. 
— R© qui délivre l'adresse contenar’ 





l'adresse d'origine de la pile. Si l'exécution 
de SPG RQ .… affiche les mêmes valeurs, 
c'est que la pile est vide. 


Soit adr la valeur contenue dans SQ et 
représentant l'adresse de l'origine de la pile 
de données. Si la pile est vide, SPG est 
égal à adr. Empilons une valeur quelcon- 
‘Le par exemple SPG est égal à adr—2. 

mpilons une seconde valeur, 5 par exem- 
ple : SPG est .gal à adr-4 


Pour accéder à la dernière donnée empilée, 
on peut la dupliquer en exécutant DUP, 
mais on peut aussi exécuter la séquence 
SPG. En fait, on peut accéder à n'importe 
quel mètre situé entre les adresses 
pointées par SPG et SO, ceci de deux en 
deux octets en ajoutant une valeur de déca- 
lage.C'est selon ce principe très élémen- 
taire que fonctionne le mot PICK. Voyons 
tout ceci avec un petit exemple : soit à 
calculer la surface d’un parallélépipéde rec- 
tangle, la formule est S-2AB+2BC+2AC. 
On se rend compte, au vu de la formule, 
que chaque paramètre À B et C est utilisé 
e fois. Voici une définition possible pour 
AIRE : 


: AIRE (a b c ---s) 
R OVER OVER * (2*AB) 
R SWAP R SWAP OVER * 2*R+R 


ILest vivement conseillé de suivre pas à pas 
le contenu de la pile de données pour 
résoudre le problème ci-dessus. Mais quel- 
que soit l'efficacité de la définition ci-des- 
sus, elle n’est guère lisible. C'est pourquoi, 
on préféra faire appel à des variables dont 
le contenu sera empilé avant traitement. On 
redéfinit donc AIRE : 


: AIRE (a b c ---s) 

COTEC ! COTEB COTEA | 

COTEA COTEB * 2* 

COTEB COTEC * 2° + 

COTEA COTEC * 2°: 

Ouf !! C'est déjà plus simple. Mais pour une 

seule définition, nous avons maintenant 

pe en-têtes dans le dictionnaire FORTH. 
el gachis ! 


C'est pourquoi, conscient des difficultés 
que peut représenter la lecture et la com- 
préhension d'un listing FORTH, les pro- 
grammeurs FORTH recherchent toujours le 
meilleur compromis entre l'efficacité et la 
lisibilité, ne fût-ce que vis à vis d’eux- 
même, sinon, il serait impossible d'assurer 
une maintenant sérieuse des logiciels. 


Les variables locales 


Le programme proposé ici permet de gérer 
des données provenant de la pile de don- 
nées, en faisant appel à la notion de varia- 
bles locales, appelation inappropriée ici, 
ms on devrait plutôt dire “élérnents de pile 
ocaux”. 


La première opération va consister à définir 
une pseudo-pile et les définition de gestion 
de cette pile. La profondeur de cette pile 
est contrôlée par la constante N- 
DEUR. En l'initialisant à 40 unités, on se 
réserve jusqu’à dix niveaux d'appels ou de 
récursivité. Ceux qui désirent une marge de 
sécurité plus élevée, pourront augmenter la 
valeur de la constante. Puis on définit une 
variable nommée POINTEUR à laquelle est 
allouée un espace mémoire supplémentaire 
correspondant à la valeur de PROFONDEUR. 


Le mot POINT stock sur la pseudo-pile 
POINTEUR la valeur située au sommet de la 
pile de données. Le mot POINT réalise l'opé- 
ration inverse. Cette pseudo-pile permettra 
de mémoriser par groupe de deux, la valeur 
absolue du pointeur de pile à un moment 
donne et le nombre d'arguments auquels il 
est fait référence. 


Le mot ARGUMENTS stocke justement ces 
données sur la pile POINTEUR. Le calcul du 
pointeur de pile absolu est égal à la valeur 
du pointeur de pile augmenté du double du 
nombre d'arguments. Pour exemple, soit 
quatre éléments sur la pile, on obtient la 
valeur du pointeur par la formule POINTEUR 
— adr (SP)+2 = arguments où arguments 5 
= 4 dans ce cas. 


Le mot P est un mot ettant la définition 
des mots PAR1, PAR2, … à PAR9. Cette liste 
n'est pas limitative, car pour créer PAR1G,il 
suffit de rajouter 19 P : PARIS et ainsi de 
suite. Ces mots exécutent la partie de défi- 
nition située entre DOES et, dans le mot P :. 


La zone paramétrique des mots PARI à 
PAR9 contient une valeur correspondant au 
décalage existant entre le pointeur de pile 
de données’ Exemple : soit trois données a 
b et c empilées sur la pile de données, la 
séquence 3 ARGUMENTS PAR1 PAR2 * effec- 
tue le produit de a et b, ceci sans détruire a 
et b. À ce titre, les mots PARI à PAR9 
peuvent être considérés comme des “varia- 
bles locales”. 


Le mot ITEMS sert à mémoriser une valeur 
pour le mot RESULT. Ce dernier mot déclare 
le nombre d'élément qui sera conservé sur 
la pile de données. Exemple, pour une suite 
d'opérations portant sur un arguments et 
où on ne désire conserver que le résultat 
final, on déclarera dans la définition la 
séquence 1 RESULT. 


On peut donc réécrire le calcul de la surface 
du parallélépipède rectangle comme suit : 


: AIRE (abc---s) 

3 ARGUMENTS 

PAR1I PAR2 * 2° 

PAR2 PAR3 * 2* 

PAR1 PAR3 * 2* + 1 RESULT, 


Toujours dans le cas du calcul de la surface 
du parallélépipède, on pourrait vouloir 
conserver le résultat et les valeurs initiales. 


Voici un exemple plus visuel, il s’agit de 
tracer un losange à l'écran : 


: LOSANGE (larg haut ---) 


2 ARGUMENTS 
PART  PAR2 NEGATE LINETO 
PART  PAR2 LINETO 


PAR1I NEGATE PAR2 LINETO 
PART NEGATE PAR2 NEGATE LLINETO 
© RESULT, 


et s'utilise comme suit : 
10. 190 PSET 59 2S LOSANGE 


Les valeurs délivrées par “variables” son: 
spécifiques à chaque procédure, y compris 
dans le cas de définitions récursives. 
Cependant, il faut tenir compte lors de la 
déclaration des résultats n RESULT, des 
paramètres délivrés par des définitions 
ie dans une définition plus généra- 
es. 


SCR: 70 
{ VARIABLES LOCALES EN FORTH) 


40 CONSTANT PROFONDEUR 

( Cette valeur peut être modifiée afin) 
{ d'accroître les niveaux d'appels. ) 
VARIABLE POINTEUR PROFONDEUR ALLOT 
tLPPOIET © n =) 


POINTEUR DUP 2+ PROFONDEUR <CMOVE 
POINTEUR ! ; 


: POIST> ( --- n) 
POINTEUR @ 
POINTEUR DUP 2+ SWAP PROFONDEUR CMOVE ; 


: ARGUMENTS € ù ---) 
DUP >POINT 2* SP@ + >POINT ; 


: P: 

CREATE (€ n ---) 
1- 2% , 

DOES> € === (pointeur+n)) 
@ POINTEUR @ SWAP - © ; 


SCR: 71 
1 P: PAR1 2 P: PAR2 3 P: PAR3 
4 F: FAR4 5 P: PARS © P: PARG 
7 P: PAR7 — & P: PAR8 9 P: PAR9 
VARIABLE ITEMS 
: RESULT ( n ---) 
DUP ITEMS ! 
BEGIN ?DUP 
VHILE SWAP DR 1- REPEAT 
BEGIN POINTEUR @ SP@ = @= 
VHILE DROr REPEAT 
ITEMS € 
BEGIN ?DUP 
VHILE R> SWAP 1- REPEAT 
POINT» DROP 
POINT» DROP ; 
:8 
Exemple: 
: <mot> € nl n2 .. nn ---) 


n ARGUMENTS 
PAR1 PAR2 
n RESULT ; 


. etc ... PARN 





Certains lecteurs de TEOphile connaissent 
l'existence de l'instruction WAIÏT dans la 
cartouche du Basic 1.0. Cette instruction 
est pourtant mal connue. En substance, 
WAIT attends qu'une adresse, donnée en 
premier argument contienne une valeur, 
spécifiée dans le deuxième argument. Le 
troisième argument facultatif est là pour 
effectuer un OÙ exclusif du masque avant 
le test. 

Exemples : Pour attendre que l'utilisateur 
ait appuyé sur le nez du crayon optique 
faire : WAIT &HE7C3, 2 En effet, le bit 1 du 
PRC situé en E7C3 indique si l'interrupteur 
du crayon optique est fermé (0 si non). 

Pour tester que l'utilisateur ait appuyé sur 
une touche quelconque 


Ah le Wait 
ah le Waif ! 


faire : WAIT &HE7C8, 1 lci c’est le bit O du 
PIA système situé en E7C8 qui indique si 
une touche est enfoncée. On peut ainsi 
tester presque toutes les entrées de cette 
manière. Un avantage du Wait réside dans 
le fait qu'il est insensible au CNT C. Un 
micro jeu pour tester votre rapidité Taper le 
petit programme suivant : 

10 WAÏT &HE7C8, 1 20 A$=INKEYS 30 
PRINT A$ 


Si vous tapez normalement RUN puis 
Entrée puis une lettre, Celle-ci presqu'’à 
coup sur ne sera pas pris en compte par la 
ligne 20 et vous aurez sur l'écran : 

RUN 

OKT (si vous avez tapé un T évidement) en 
étant assez rapide, c’est à dire en tapant 


votre T une fraction de seconde après l’“En- 
trée“ du RUN, votre frappe sera pris en 
compte par la ligne 20 et vous aurez sur 
l'écran : 


Un exemple d’ utilisation du troisième argu- 
ment : 

Soit à mettre en rouge le bord de l’écran 
TANT que l’on appuie sur une touche. Cela 
s'écrit 10 WAÏT &HE7C8, 1 ‘attente touche 
20 SCREEN, , 1 ‘bord rouge 30 WAIÏT 
&HE7C8, 1, 1 ‘masque inversé pour rela- 
chement touche 40 SCREEN, , 6 ‘tour bleu 
ciel 50 GOTO 10 retour 


Camille Louis 


Amélioration 
de la copie du DOS 


Ce programme simple est écrit en Basic 
pour être compris de tous. Il permet de 
formater une disquette, de supprimer le 
DOS sur une disquette où il est présent 
pour récupérer environ 8 K octets et enfin 
de le rajouter sur une disquette où il est 
absent, même si la disquette contient déjà 
des fichiers du moment qu'il reste au moins 
8 K octets d'espace disponible. Si les 8 K 
octets ne sont pas sur les pistes réservées 
à cet effet, le programme remaniera les 
pistes et les secteurs sans altérer les 
fichiers. Ce programme est opérationnel 
sur TO7, TO7-70, TO9 et MOS. Il accepte 
également les unités simple et double den- 
sité 5, 25 pouces. Pour recopier le DOS il 
faut évidement se munir d’une disquette 
appelée “master“ dans le programme et qui 
contient le DOS. 


Commentaires L10-70 

initialisation et menu (à adapter selon ses 
goûts). 

L80-90 

initialisation de la disquette avec vérifica- 
tion (c'est un peu plus long qu'avec VERIFY 
OF 


L100-200 

test sur la piste du catalogue pour voir si le 
DOS y est (test=2), ou s’il n'y est pas (test=1 
pistes vierges, test=3 pistes occupées par 
des fichiers). 


L220-260 

suppression du DOS. On insère dans le 
catalogue l'information ‘Pas de DOS’. Les 
pistes concernées sont rendues libres. Le 
nombre de K octets libres et le catalogue 
s'affichent à l'écran. 


L280-450 

remaniement de‘ la disquette. Si l'on 
demande l'insertion du DOS et si le test est 
égal à 3, ce sous programme s'éxécule. 
Première mesure, vérifier qu'il reste au 
moins 8 K. Si c'est oui, la procédure va 
consister à chercher dans les pistes attri- 
buées au DOS celles qui comportent des 
fichiers, puis à chercher dans l'ensemble 
des autres pistes la première qui libre. On 


indique alors au catalogue que l'on va 
inverser les deux pistes ainsi trouvées. En 
fait on travaillera par demi-piste (8 sec- 
teurs). Mais les demi-pistes en appelant 
une autre, il faut rechercher la demi-piste 
appelante afin qu'elle appelle dorénavant 
la nouvelle piste. De la même manière, la 
première demi-piste appelée l'est depuis 
le catalogue. Si cette demi-piste a changé 
de place, il faut modifier ce dernier. 


L460-640 

recopie du DOS sur les pistes et secteurs 
concernés. On lit le DOS du “master” et on 
le reporte en même lieu et place sur la 
copie. Puis on indique sur le catalogue la 
présence du DOS. 


650-720 
insertion du secteur information dans le 
catalogue. X=254 si protégé et 255 si libre. 


Si cela interesse des lecteurs, ce pro- 
gramme pourra être publié en assembleur. 


Gérad Buis 


LA MICRO” C'EST SERIEUX 


Un ordinateur à la maison c'est un investissement, un pari sur l'avenir, 
celui de nos enfants, mais aussi le notre. 


THOMSON bien sûr 


Seul THOMSON, la marque française retenue par l'Education Nationale, 
peut vous garantir un investissement performant et durable grâce à son matériel fiable et puissant 
et une gamme de près de 500 logiciels, dont plus de la moitié éducatifs 
(de la maternelle à la terminale). 


Alors profitez des promotions LOGIC-STORE pour acquérir ou compléter votre MICRO. 












































Un système complet qu'il suffit de 


brancher sur votre TV couleur. Coftret MODs nsimenneeteiests 2690 F. 


Ordinateur MO5 + livre d'initiation + crayon 
optique + lecteur de cassette + 2 jeux 


PE 
Coffret T07.70 EDUCATIF nn 3390 F. FPDF MANOTRRONe) 


Ordinateur T07.70 + langage Basic + lecteur de Ou mieux encore pour être indépendant de la télévision. 
cassette + 2 jeux (Scrabble + Planète inconnue) Coftret T07:70 COMRLET énmemnsens 4990 F. 
+ 1 bon de réduction de 50% sur un lot parmi Ordinateur T07.70 + le langage Basic + lecteur 


12 lots de 3 programmes éducatifs de cassette + 1 moniteur couleur 36cm TV grade 





Pour ceux qui désirent un système alliant le jeu, l'éducatif et les applications personnelles, 
T09, le dernier né de Thomson et le meilleur rapport qualité prix actuel. 
Seul sur le marché, le TO9 contient deux logiciels de gestion intégrés : 
un traitement de textes et une gestion de fichiers. 


De plus, vous disposez d'une vraie mémoire de 128 ko, 
d'un Basic surpuissant et d'un lecteur de disquettes 320 ko. 


D'une utilisation simple, le TO9 vous permettra toutes les applications. 





Coftret 109 COULEUR 2 rmommeeneene ; Coffret T09 MONOCHROME 
Ordinateur T09 + logiciel graphique Color Paint Ordinateur T09 + moniteur monochrome 
+ moniteur couleur 36cm haute résolution vert 31cm 









Quick Disc Drive (T07, T07.70, MO5) 
Un vrai lecteur de disquette pour le prix d'un 
lecteur de cassette ! 


EXTENSION MO5 1980 F. QDD + 4 Jeux (TO7, TO7.70) 990 F. 
(QDD incorporé + le logiciel Jane comprenant (Aigle d'or + Histoire de théâtre + Karaté 

un traitement de textes, une gestion de fichiers + Mini bridge) 

+ un tableur) 


LECTEUR DE DISQUETTE 320ko 

+ DABIC 128 (TO770) séunrammaussus 3590 F. 
EXTENSION TRAITEMENT DE TEXTES 3490 F. QDD + MEGABUS + 1 MANETTE 
(T07, T07.70, MO5) COR TO TE som ianh 1390 F. 
Imprimante qualité courrier PR 90600 + Interface BASIC 128 + EXTENSION 64ko (T07.70) 1490 F. 


parallèle + Scriptor CLAVIER MECANIQUE MO05 + HOUSSE (MO5) … 








Promotions valables jusqu'au 30 mai 86, au magasin et par correspondance. 
Demandez notre nouveau Tarif avec les compatibilités - TO7 - TO7.70 - TO9 - MOS. 


LO GI C STORE 92, rue du Chemin Vert, 75011 Paris 
LE 


Tél : 43.38.52.49 


Ouvert du mardi au samedi de 10h à 19h. 
BON DE COMMANDE (Expédition sous 15 jours saut rupture de stock) (remboursable à la première commande) 


Je commande à LOGIC STORE les matériels et logiciels suivants par chèque [] ccPO Mandat [] 








Je règle ma commande 


Ccomptant franco ci-joint [chèque no e 
{minimum 100 F) CMandat 9 
ClCarte bleue no = 


Date validité 


[] Contre remboursement (frais d'expédition à ma charge) 
OA crédit (matériel à partir de 2000 F.) 
Faites moi parvenir une proposition de financement en fonction de mon 


Je demande la carte LOGIC-OR (Matériel seulement) soit versement comptant : F 


290 F. jusqu'à 6000 F. d'achat Nom Prénom 
390 F. de 5000 à 10000 F + Adresse 
490 F. de 10000 à 15000 F. Code postal Ville 





Téléphone 
Total TTC de ma commande [____] Je possède un ordinateur et les périphériques 
Je désire recevoir THEOLOGUE 85-86, le catalogue de tous .es matériels suivants numéro de ma LOGICARTE 


THOMSON ainsi que tous ses additifs, ci-joint ma participation de 20 F Date Signature 








Quelle adresse ? 


“Faute de littérature sur TO9, je me suis 
acheté “Super jeux MOS5 et TO7/70" chez 
PSI. Pas de problème, le TO9 est équipé du 
Basic 1.0 du TO7/70... Eh si ! Pour tous les 
jeux une commande “PEEK(24671)" dont 
les résultats sont désastreux. Au bout du 
numéro vert chez PS], j'ai eu un interlocu- 
teur, peut-être sympa mais pas “très bran- 
ché”. En gros YAPA2PROBLEM CLeMEM... 
J'ai raccroché, découragé par les problè- 
mes philosophiques de l'incommunicabilité. 
Ma question : comment s'appelle en TO9 
l'adresse “24671” du TO7/70 ?” 

D.F.Bert (Veauche) 


Elle ne s'appelle pas car elle n'existe pas. 
En effet, le TO9 possède une gestion clavier 
radicalement différente puisque confiée à 
un processeur indépendant qui fait tout le 
boulot que devait faire le 6809 avec l’aide 
de l'adresse 605F, le registre CMPTKB pour 
compter les répétitions clavier et par la 
même occasion le registre KEY (605E). 
Autant vous dire que tester la valeur d'un 
octet qui ne signifie plus la même chose 
vous conduit droit aux ennuis que vous 
avez eus. Regardez un peu ce que fait la 
routine avec CMPTKB, avec un peu de 
chance vous pourrez supprimer ce passa- 


ge. 





COWNEer 


petites 


Transferts sur QDD 


“Avant toutes choses, veuillez accepter tou- 
tes mes félicitations pour votre nouvelle 
formule et votre parution mensuelle, souhai- 
tée depuis longtemps par beaucoup de 
Thomsonistes assidus. 
Est-il possible par programme, de transfé- 
rer sans chercher à déplomber ou magouil- 
ler, tous mes logiciels en langage machine 
sur QDD... Le logiciel Jane avec lequel 
j'écris ces lignes, ainsi que le QDD, donnent 
au MOS (dans tous les sens du terme) une 
nouvelle dimension !” 

J.-P. Piarou (Marseille) 


Le QDD du MO5 ou du TO7 se comporte 
exactement comme une disquette grâce au 
QDOS. Cela signifie que les problèmes de 
transfert d’une cassette vers un Quick Disk 
sont les mêmes que d’une cassette vers 
une disquette. 

Si ce sont vos programmes binaires, il suffit 
de connaître les adresses de début, fin et 
d'exécution, de faire : LOADM“CASS :nom 
de fichier“ 

puis 

SAVEM“nom de fichier“, ad déb, ad fin, ad 
exécu. 


AMHOHCES 


VDS TO7 + ext 16K + 
Mémo 7 Basic. Prix : 
2 400F. VDS Logiciel 
Porte Feuille Boursier 
pour TO7. Prix : 450 F. 
Gilbert FELIX, 48 Rte 
d'Anse - Limas - 69400 
Villefranche S/Saône 


Vends Thomson TO7 + 
Memo 7 Basic + ext 
mem. 16K + Clavier 
Mécanique + Magnéto et 
manuels : 2500F. Int. 
de com. et manette de 
jeux + 2 Joysticks Nombx 
logiciels jeux et gestion a 
50%. A. Richomme 

tél : Bur. 69.41.73.04,. 
Dom. 69.07.35.76 


A vendre TO7 clavier 
mécanique + Ext 16KO 
+ 8KO + LEP + Basic 
+ livres + cartouches + 
rogrammes. 
rix : 3 500 F. 
Tél : (1) 34.67.14.62 


VDS TO7 + magnéto + 
cartouche Basic + car- 
touches : Teidi 444 et 
Melodia + manuel + 
Livres de jeux + nom- 
breux programmes 
3 500 F. (valeur 5 500 F.) 
Tél : (50) 33.04.82.94 





Pour les programmes des éditeurs, il est 
fort probable que vous ne puissiez rien 
transférer du tout, tant les protections 
actuellement mises en oeuvre dépassent la 
compétence moyenne pour réaliser ce que 
vous demandez. Il reste qu'en lisant TEO- 
phile vous connaissez immédiatement la 
date de sortie d’un logiciel pour QDD et rien 
ne vous empêche d'écrire à l’un d'eux pour 
savoir les conditions d'échange d'un logi- 
ciel en cassette contre le même en QDD. 


Marre de Basic 


“Pourquoi ne pas s'ouvrir à d'autres langa- 
ges qui correspondent à un autre dévelop- 
pement de l'informatique (exemple 


LOGO) ?...” 
M. Le Bot (Château du Loir) 


L'impérialisme de Basic est une donnée. 
Nous sommes heureux de parler Forth, Pro- 
log ou Logo à la mesure de nos possibilités 
(c'est chose faite ce mois-ci) et nous vous 
assurons que dès la sortie du compilateur 
Pascal vous trouverez de quoi satisfaire 
vos légitimes envies. Quant à Smalltalk, 
Lisp, Modula-2 et C, nous attendons que 
vous-même ou des éditeurs sérieux les 
implantent sur les machines actuelles ou 
futures. 





VENDS TO7 + 16K + 
LEP + BASIC : 2 200 F. 
Incrustation : 350 F. Boi- 
tier 4 Péritel: 450F. 
MOS : Logo + livres : 
750F., Pictor: 250F, 
LEP : 450 F. TO7 : Logo 
+ livres : 750 F. 
Exceptionnel : Extension 
spéciale + 8K (mémoire 
Max pour TO7), perma- 
nente ou non (piles) 
350 F à 450 F. 

Tél. : 48.27.27.53. 
Michel Robert, 20 rue 
Guillaume-Apollinaire - 
93200 Saint-Denis. 


DONNE cours informati- 
que le samedi. Télépho- 
ner au 39.79.11.30. 






























































































TEO CONCOURS 
Résultats 


Seule la question subsidiaire a réussi à départager les nombreux Ex - aequo. 
Le gagnant du TO9 est M. Lucien SOUROUILLE (Pantin) 


_ La réponse était : 


N°1 Parfumait l'éléphant 
N°2 Voyager Il 

N°3 Champlain 

N°4 Claude Brasseur 
N°5 Karl 


Question subsidiaire : 157 bonnes réponses. 


nn © A0 < 
— HO RY D 


RUES ROYALE & LA MADRLEINE 








TEOFUN 


Nol: la 


bonne réponse était “le 
minimum de A et B”. 


Ils ont gagné un poster : 


ZAPPA 
VERMEIREN 
SOUAROVILLE 
SIMON 

SEVIN 


MENGUY 


MARSANNE 
MARGALEJO 


GONZALEZ 
FANDOT 
FONTENELLE 
FAVE 
BEAUJON 
BERTRAND 
DEBIERRE 
AHERALY 








FARECHON 
BERSET 


MASSART 
DONIO 
CHAMBONNEAU 
TOURTE 
GIBAND 
EYNAR 

ROBIN 
CAUSSE 
NIQUET 
BASSET 
MONNIER 
COQUELIN 
BUARD 
BROUST 
VERONNEAU 
GRESSENT 


RIBAILLER 
DIEUDONNE 


DEGUIL 
ANDRE 
BIOHUIN 
GAILLARD 
ROY 
FELICIDI 
BERTRAND 
BERNARD 
BELMONT 





SAINTE TULLE 
NORHOUT 
THIAIS 
PARIS 
NANTES 
MEAUX 
TIERCE 
MARSEILLE 
NANTES 
VILLEBON 

EN YVETTE 
SAINT PERAY 
PARAY x POSTE 


CAEN 

HESOIN L'ABBE 
SAINT VALLIER 
LA ROCHE 
SUR LYON 
MERIGNAC 
LYON 
GRANDE SYNYHE 
VANCOULEUR 
FAILLY 
ABRESCHVILLER 
LE VANDOUE 

LA REUNION 

LA BRIDOINE 
BRIVE 
GRAVELINES 
CORMONTREUIL 
SAINT JULIEN 
ANT HOULETTE 
MONTRENEL 
AULIBES 
CLERMONT 
FERRAN 
LIVOUY GARGAN 
BEGUES 
HOCHFELDEN 
RECHMONT 











CHATEAUROUX 
COURBEVOIE 
ARVAN 
VILLEFONTAINE 
CANTELEN 
ROUTOT 
CHARENCON 
SAINT RIQUIER 


NANCY 
SUR VILLIERS 
GOUSSAINVILLE 
MAIZIERES LA 
GRANDE 
L'ARBRESLE 
COMBEAU 
FONTAINE 
ILE D'YE 
ANJUON 
MIREPOIX 
LIMOGES 
AYGUES VIVES 
LIMOGES 
VERDUN 
AMBERT 
GARCHES 

















ZGAINSKI SAINT ETIENNE 
MUSELET PONT DE BRIQUES 
MERCIER LEHAVRE 
MARCK LIVAROT 
DELOIZY CRETEIL 
COUASNARD MEUDON 
LA FORET 
NONES NILVANGES 
GOSSES WELLERS 
ARNAUD SAINT GERMAIN 
ENLAYE 
BORIES SAINTE ALFEQUE 
PECHEUR SAINT RENAN 
TONDENIER ECOUCHE 
PASCAL VILLENEUVE 
DE BERG 
VIGROUX MARVEIOLS 
ZOYO MAE 
LECLERC LEHAVRE 
BOURDON JUSSEY. 
TEOFUN N°3 :“C'est 
la routine qui affiche 
SYNTAX ERROR". 
Ils ont gagné une collec- 
tion TÉOPHILE : 
EAUJON VIGY 
BERTRAND ABRESCHVILLER 
KRAUS LES ULIS 
LANOU HESOIN L'ABBE 
LE BERRE CAEN 
THOMAS CHENNEVIERES/ 
MER 
COISSAC MONTROUGE 
PRIMAULT CHATEAUGIRON 
SORTAIS CHARTRES 
GRUSS HAYANGE 
GOSSE WALLERS 
SABY CLERMONT 
FERRAND 
ZILLIOX HOCHFELDEN 
MUSELET PONT DE BRIQUES 
FELICIOLI LIMOGES 
CLIQUE COURRIERES 
BOUCHER BAYEUX 
ZANIER PIERREFITTE 
ANDRE ANIUON 
BASSET SAINT RIQUIER 
PASCAL VILLENEUVE 
DE BERG 
BROUST SURVILLIERS 
FAVRE FROUZINS 
PECHEUR SAINT RENAN 
RIBOUD LAGNIEU 
BELNEONT GARCHES 
SIMON DUON 
PAROT MONTRENEL 
SCHLENET BREST 
ROUILLE ECULLY 
ANGELIE PARIS 


TEOFUN NA: la 
bonne réponse était “le 
maximum de X et Y”. 
De petits malins ont 
répondu avec justesse 
que le programme était 
l'inverse de celui du 
TEOFUN N°oi mais, 
malheureusement, ce 
n'était pas la réponse 
demandée. 


TEOfun 
Résultats 


Un grand bravo à tous ceux qui nous ont écrit pour participer aux jeux TEOFUN : plus de 1599 
réponses ! Malheureusement, et nous le regrettons, tous ne recevront pas un cadeau. Une prochaine fois 
peut-être. | 


Alors, qui sont les gagnants ? Nous allons les découvrir ensemble. 


Ils ont gagné un album 
de bandes dessinées : 


ZGAINSKI SAINT ETIENNE 
DESCHAMPS SAINT JULIEN 
CHESNEY ANTIBES 
CHEVIN CORMONTREUIL 
VICTOR GRAVELINES 
ANGELIE PARIS 
BOUVIER LA BRIDOIRE 
CHOPLIN ORIGNY SAINT 
BENOIT 
LEROY GONDREVILLE 
GATINEAU BEAUFORT 
EN VALLEE 
ZILLIOX HOCHFELDEN 
SIMON DIJON 
DONIO ECULLY 
THEVENOT PARIS 
EYNARD VILLEFONTAINE 
BELMONT GARCHES 
CAUSSE ROUTOT 
MUSSELET PONT DE BRIQUES 
NIQUET CHAVENCON 
VERONNEAU GOUSSAINVILLE 
SUARD NANCY 
COQUELIN PARIS 
MONNIER ORLY 
MALLEJAC QUIMPER 
ORIES SAINTE AFRIQUE 
BROUST SURVILLIERS 
RIBAILLER L'ARBRESLE 
DIEUDONNE COMBEAU 
FONTAINE 
BEGUIL ILE D'YEU 
BASSET SAINT RIQUIER 
BIETTRON LA PACAUDIERE 
GARCIA MISEREY 
MONTIBUS CREPY EN VALOIS 
PARADIS CRECY EN VALOIS 
TOUCHAIS AVRILLE 
GAILLARD LIMOGES 
ROY AIGUES VIVES 
BERTRAND VERDUN 
BERNARD AMBERT 
PASCAL VILLENEUVE 
DE BERY 
ZOYO NOE 
TOURTE COURBEVOIE 
MASSART GIVET 
TONDENIER ECOUCHE 
LECLERC LE HAVRE 
PECHEUR SAINT RENAN 
NONES NILVANGE 
COUASNARD MEUDON LA 
FORET 
BOURDON SUSSEY 
MOUAT PATRICK 
TEOFUN No5: la bonne 


réponse était “b”. Vous 
avez été très nombreux 
à gagner mais seulement 
20 logiciels étaient en 
jeu, aussi avons-nous dû 
tirer au sort les 
gagnants. 


Ils ont gagné un logi- 
ciel : 


BARNET TOULOUSE 

MARK LIVAROT 

BONFILS SAINT PAUL 
LES ROMANS 


LEJARRE SAINT DENIS 

DE L'HOTEL 
VIGROUX MARVEIOLS 
WEISS LAGNY LE SEC 
LEGRE PARIS 
GAMBERT FONTAINE 

LA MALLET 
KULIK ECHENANS 
CERVANTES TINKES 
FARINEAU MONTPELLIER 
CARLIER 
CHOTEAU PARIS 
RAYBAUD NICE 
HERBUVEAUX MOYEUVRE 
BLADOU LACAPELLE 

MARIVAL 
LAMBERT TOURNES 
BELMONT GARCHES 
SCHAFFAR ILLZACH 
GOSSE WALLERS 
ZAPPA SAINTE TULLE 


TEOFUN N°7: l’une 
des meilleures réponses 
était : 

O A=B-A+1 : 

:B=AtB :?A;:GOTO 


Ils ont gagné un logiciel 
Loriciels : 





HELLRINGER CHALONS 
SUR MARNE 
GAILLARD LIMOGES 
RAYBAUD NICE 
NORIS PONT DE ROIDE 
CHAMBONNEAU CHATEAUROUX 
SAKIROFF AJACCIO 
MARLES PARIS 
MUSELET PONT DE BRIQUES 
BERTRAND VOYER 
BERTRAND ABRESCHVILLER 
VIGROUX MARVEJOLS 
GARCIA MISEREY 
DUBREUIL CHALONS SUR 
MARNE 
VALLEE LE GRAND LUCE 
PASCAL VILLENEUVE 
DE BERG 
FEAT PIERREFITTE 
GRANIER DECAZEVILLE 
DEVOYON BEZIERS 
POSTEC NANTES 
BERTRAND VERDUN 
PALMISANO VILLENEUVE 
LE ROI 
SENOCK LE HAVRE 
ROYERE NEVRES 
MERCADIER CARMAUX 
FELICIOLI LIMOGES 
POESTEL NOTRE DAME 
DEBONDEVILLE 
JACQUOT SAINT VALLIER 
CHAUZEIX MAGNY EN VESCIN 
REVELAT FREJUS 
SEVIN NANTES 
FONTENELLE GDE SYNTHE 
ETTEY PETIT MAGNY 
RICHEZ WAHAGNIES 
THOMAS CHENNEVIERE/ 
MARNE 
BEAUJON VIGY 
SOUROUILLE THIAIS 
SX OSTWALD 
FLORN EPERNON 
NITSCHKE OSTWALD 


FOREST SAINT QUAY 
PORTRIEUX 
RICHARD MONTBRISON 
BERTRAND ABRESCHVILLER 
BECK TREBURDEN 
QUER MARSEILLE 
NISSON SERRIERES 
OLIVIER GRANVILLE 
LANDY HESDIN L'ABBE 
VERMEIREN WORMHOUT 


TEOFUN Noe8 : 25 ou 
200. Vous aviez de l’ins- 
piration puisque nous 
avons reçu plus de 260 
réponses justes. Pour 
attribuer les 3 incrusta- 
tions vidéo nous avons 
donc dû tirer au sort les 
gagnants suivants : 


LEPAGE PARIS 
GUEVEL PARIS 
ZAPPA PARIS 


TEOFUN N°9 : c'était 
une question-piège à 
laquelle il fallait répon- 
dre “un certain temps” 
mais vous avez été nom- 
breux à flairer l’attrape. 


IIS ont gagné un agenda 
Glénat : 


ZAPPA SAINTE TULLE 
VERMEIREN WORMHOUT 
SIMON PARIS 
SEVIN NANTES 
SENOCK XAVIER 
POSTEC NANTES 
PETRELIS SAINT GYR 
SUR LOIRE 
ROUSSET LYON 
PETIT VALENCE EN BRIE 
PAUGET CUSSET 
OLIVIER GRANVILLE 
MONGE NICE 
MISTRAL FONTVIEILLE 
METAYER SAINT CLAR 
DERIVIERE 
MARTINAT CHATEAUDUN 
MARGALEJO PARAY y POSTE 
LEMERCIER BEAUVAIS 
LE BERRE CAEN 
GUEVEL NANTERRE 
FRESNEAU ARGENTEUIL 
FLORK EPERNON 
FAVE VAUCOULEURS 
FAUDOT LYON 
AIVRE LYON 
EXCOFFIER ALVERTVILLE 
DIF PARIS 
CRESPOU LE VIGAN 
COURTY CHARTRES 
CASAS CISSONNE 
CHEYRONNAUD MARSEILLE 
BESTEL NOTRE DAME DE 
BONDEVILLE 
BEAUJON VIGY 
MAUGERARD GIVRY EN 
ARGONNE 
SABY CLERMONT 
FERRAND 


CHOTARD 
TIMISTCHENKO 
BROUST 
LESCOUZSERES 
VICTOR 
VICENS 
DIMEGLIO 
MONDOU 
SIMON 
CHOPLAIN 


FROMAGER 
GAUTIER 
GARACHON 


BOUVIER 
POITOUX 
ZILLIUX 
BLIES 
SARNIER 
LANOY 
TRUSGNACH 


GUENYEND 
HERBUVEAUX 
SABRIE 
FERREZ 
BERNARD 
KULYK 





MONNIER 
PATEAU 


MARCHAND 
SUARD 
LAMBERT 


COQUELIN 
MARGALEJO 
LEMERCIER 
LE BERRE 
GUEVEL 
FRESNEAU 
FLORK 
FAVE 
FAUDOT 
FAIVRE 
EXCOFFIER 
DIF 
CRESPOU 
COURTY 


CASAS 
CHEYRONNAUD 
BESTEL 


BEAUJON 
MAUGERARD 


SABY 
CHOTARD 
TIMISTCHENKO 


BROUST 
LESCOUZSERES 
R 


CAUSSE 
PEYRELADE 


ROY 
CHUCHROWSKI 


COLOMBES 
TOURRIERS 

SUR VILLIERS 
LE MAS DAGINAIS 
GRAVELINES 
FOURQUEVAUX 
MARSEILLE 
ARCHIAC 
MONTFERMEIL 
ORIGNY SAINTE 
BENOITE 
ANNECY 

THEIX 
CLERMONT 
FERRAND 

LA BRIDOIRE 
SIMANDRE 
HOCHFELDEN 
ROSSELANGE 
SAINT OUEN 
MESDIN L'ABBE 
GIVRY EN 
ARGONNE 
PARIS 
MOYEUVRE 
LIMOGES 
BELFORT 
AMBERT 
ECHENON SUR 
LETANG 


NA! 
CHARLEVILLE 
MEZIERES 
PARIS 
PARAY POSTE 
BEAUVAIS 
CAEN 
NANTERRE 
ARGENTEUIL 
EPERNON 
VAUCOULEURS 
LYON: 
LYON 
ALBERTVILLE 
ARIS 
LE VIGNAN 
CHARTRES 
CISSONE 
MARSEILLE 
NOTRE DAME 
DE BONDEVILLE 
VIGY 


GIVRY EN 


OURRIERS 

SUR VILLIERS 

LE MAS DAGINAIS 
GRAVELINES 
FOURQUEVAUX 
SAINTE TULLE 
CANTIN 

NOISY LE GRAND 
CREPY EN VALOIS 
BRUNAY 

BEYNES 

ROUTOT 

CRECY LA 
CHAPELLE 
AYGUE VIVES 
SAINT POURCAIN 
SUR SIOULE 











CIT07-70 + magnéto + basic + moniteur 


C1T07-70 + lecteur disquette + moniteur 


du mardi au vendredi : 









C1 T07-70 + magnéto + basic + moniteur 
COUIBU ere to Rd. 5250F C]M05 + magnéto + moniteur monochrome 
SONO : 2.2 tee du der ne 

CI M05 + magnéto + moniteur couleur ..4350 F 

C1 M05 + magnéto + moniteur couleur + 

extension quisk disk drive 


monochrome ............................. 4550 F 


COUIBUF ................................... 71850 F 





























monitor monochrome sonore ........... sresaaé 995 F 
extension MOS (avec Q.D.D.) .................. 1986 F 
lecteur-enregistreur “Quick Disk" .....,..,...... 850 F 




























































































magnéto TO7-TO7/10 .... 495F 

magnéto M05 ........... 45F 
Ë ext. télétel T07-70 ... 1.690 F 
L—— 1h ext. mém. 16K T07 ....485F 
” ext. incrust. MO5-T07-70485 F 
cont. comm. MO5-T07 .585F 
crayon optique MO5 ...195F 
câble impr. Thomson ...250 F 
câble moni. mono. ..... 115F 

ext. mém. 64K 

072 Ove pie notes 1195F 





“ne lui manque que la parole”, synthé. VOCI la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne | 

Esynthétisaunvocalaneonennnsse netntoe s dec 499 F 


produits PERITEK 









































mégabus 2 
amplibus ...... 
a RUE anneau napves sonnerie 480F 
clavier mécanique TO7/70 595 F 
clavier mécanique MO5 .............. 495F 




















imprimante impact 

(80 col. qualité courrier) 
imprimante impact (80 col) ........ 2395 F 
imprimante impact 40 col. 























COMMENT COMMANDER : 





LOGICIELS 


M : mémo 7 - D : disquette - C : cassette 


© micro-scrable 


© numéro 10 (football) C7-5 
Du 
© la planète inconnue 


© colorcaic M7-9 

[ graphiques D7-9 Ds F 
O statistiques D7-9 

© airbus M7-5 495 F 


Q scriptor M7 . 
O basic 128 M7 e 
LL POTEN Mer con cssses sud 
[ assembleur M7-5 

O orthocrack 1 à 3 - le vol 
OC.A.0. C5... 
[] aigle d'or C7- 
© empire C7-5 230F 
© top chrono (course voiture) C5 150 F 
D le 5eme axe GE Rss 254 190 F 
D lorann C7-5. ss 

C] air attack C7-5 : 
[1 minotaure C7 
© coliséum C7-5.. 
Q space shuttle C5 .. 

Cl meurtre à grande vitesse C7-5. 
[] jeu de dames C5 
1815 (war-game) C7-5 
D FLIPPER C5. 
© tyrann C5 
0 vox C5 
O mission delta É 
Ole millionnaire C5 

À tablo 5 - C5 

[ la cuisine fran 
© 1000 bornes C7-5 
© monopolie C7-5... 
O pascal base C7-5 ... 
© une affaire en or C7-5 
[ loto C7-5 
© bugs buster C7-5 .......... 
© cartoon marker C7-5 ....... 
© romulus, rome et moi c7-5 ... 
Ü histoire de théâtre C7-5 .. 
© war-game C7-5 
Ole tbe du pirate C7-5..... 
[ j'apprends le morse C7-5 ..... 
© coloric C7-5 
[ animatix C7-5 
© corps humain C7- 5. 
© eurospace D7 . 
D las végas C7-5 
© mandragore C7 
D vin sur vin C7-5 
© microscillo C7-5 
À karaté C7-5 ............... 190 F 
O les dieux du stade (J092) C7-5 150 F 
© ballade pays de big ben D7..269F 
© colorcals 7-9 
O graphiques 7-9. 
[ statistiques 
[] compta. générale 7-9 
© choplifer C7-5-9 .... 
Étarecior 21-5-9 
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245F 














[ super tennis C7-5 
[] aide lecture vol. 1 à 4 C7-5 
D aide COR vol. 1à2 
C7-5 le volume ............. 
©] anglais vol 1 à 7 C5 le vol... 
© armada D7-5 le vol ... 
[ ass. desass. (infogram) C 
© biorythmes C7-5 
© caractor 2 M7-5 
[ carnet de santé C: 
[ carte de France C5 
D carte du ciel C7-5 ... 
D chiffres et lettres C7. 
© club de football C7-5. 
© compactor M7 ........ 
[ course aux lettres C5 
[ éliminator C5....... 
D FBI. C5... 
© forth M7 
[1 gérez vos fiches M5-7 . 
© gram. orth. C7-5 
©] guteng tag vol. 1 à 2 C7-5 le vol. 
[ inspecteur gadget C5 ........ 
[ invasion C7-5 ...... e 
D je dessine C5....... 
© labyrinthe survie C5 . 
Ole millionnaire C5 . 
Ole minotaure C5... 
Ole trésor du pirate C 
© multiplic. casse-tet C7-5 
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7 :T107-70 -5 : MO5 - 9: T09 















© orbital mission C7-5 ......... 230 F 
D ordifables vol 1 C7-5 ... -160F 
D orthocrack 1 à 4 C7-5 le vol... 160 F 
© pancho C5 .120F 
O puiser DOS s ve -160F 
Dire vite et bien C7-5 -205F 
© logo M5-7 le vol... «995 F 
D logo M5-7 le vol. .995F 
© melodia M5-7 ......... -495F 
C] moniteur odin (ass. desass. C5 320F 

Ü mots croisés vol.1 C7- 
le volume 205F 
[ raid sur ténéi 90 F 
D rotor war C5 .. 55F 
© san pablo C5 .. 55F 
D scrontch C5 ..... 155F 
O story board C7-5. 290F 
O synthetia M5-7 495F 
Dthesaurus C5 ..... 185F 
© micro scrable C7-5. 250 F 
[1 miner 2049 C7-5-9 .. 345F 
© numéro 10 (football) 195F 
265F 


D la planète inconnue C7-5 .. 
À threshold C7-5-9 
© colorpaint ........ 
© blitz (échecs) M7- 9: 
© polyphonia 7-5-9 .... 
© runway C7-5.. 
D scarfinger C7 .... 
© Y super jimmie C7 
D thomcalc C7 
© mandragore D7 
D dossier g C7-5. 
D courrier C7-5 . 4 
O ML1 (macro lang. ass) 6 | SE 
D lutin C7-5 . 
© challenge C7-5 RAA 
[D fulgar C7-5 ...... sh 
©] cap sur dakar C7-5.. 
D contrôle aérien M7-5 . 
D judoka C7-5 ..... 
D téléphone C7-5 ............. 
O cog'inn C7-5 .......... 
O kronos C7-5 ......... 
O astrocouple C7-5..... 
[ biorythmes C7-5 . 
O brigade du feu C7- 5. 
[D océania C7-5 . 
[] air attack C7-5. 
O geste d'artillac 
[ soleil noir ........ 
C] mon général ....... 
Dkaraté D7-5. 
© corps humain dssas 
D karaté C7-5 ........ 
[] arsène lupin C7-5 .. 
O1 las végas D7-5 ...... 
À romulus, rome et moi C7-5 
D le jeu des marelles C7-5. 
D la cuisine française C7-5 
CO bugs buster C7-5 .... 
O tyrann C5 .... 
È 1815 C7-5. 
Ep raphologie HA 
O loto C7- 
O meurtre gde vitesse C7-5 
© mission delta C5 


LOGICIELS TO9 disquette/cartouche 


250F 
230F 
240F 
295F 
295F 
..250F 
..350 F 
..230F 
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© malédiction de Taar 
O thésaurus 
[SOS pace. 
O france eur! 
[1 maths collège . 
C] cap sur dakar . 
[bloc note ..... 
O karaté ..... 
D las végas 
Dles dieux du stade 
© mandragore 
D colorcalc ... 
D graphiques . 
[D statistique .. 
ER Es dore 
©] choplifter .. 
[] miner 2049ER. 
Othresholld ...... 
[s] se business 
[ vol sols ...... 
© polyphonia . .….… 
© colorcalc + stati 












LIVRES 


© pratique du MO5 (niv. 2)...... 100F 
Lise et périph. MO5 






AE D eu Etre 85F 
© 102 prog. pour MO5 T07-70..120F 
Ole M05 et T07-70 à l'école ... 130 F 


[ la découverte du T7 . 9 
[ jeux, trucs et comptes po l 
D clefs pour T07-70 .... 1542 
[D la découverte du MO5........ 9 
CO M05 et T07-70 pour tout petits È 
1 
8 
2 
0 


[1 super jeux MO5-T07-70 ..... 
©] basic MO05-T07-70 (méth. prat.) 1 
©] exercices pour MO05 et T07-70 
CD M05 et T07-70 en famille... 
OC M05 et T07-70 pour tous 





© clefs pour MO5 
[ maths et thomson en 6e . 
[ français et thomson en 6e 
[1 basic + 80 routines ...… 
D faites jeux en ass. T07-70 
Dinitiation au basic 128 TO 
[ logo, manuel de référence 
© 150 proc. utilitaires en loi 
[ manuel assembl. 6809 T07-70 1 
[ manuel assembl. 6805 M05 ...1 
[ la face cachée du T07-70 
[la face cachée du MO5 . et 
© manuel technique du T07-70..1 
©] manuel technique du M05 ....1 


















20, rue de Montreuil - 94300 VINCENNES - Tél. : (1) 43.28.22.06 
10h30à13h-15h à 19 h— le samedi : 


PROMOTION 


10h30à19h 


3350 F 
















































O1 TOS complet avec moniteur couleur... 8990 F 

O1 Clavier + unité cui avec lecteur disquette 
3"1/2 intégré + crayon optique ........ 1980 F 

[ souris . 150 F 
moniteur c ‘3180 
lecteur disquette supplémentaire ... 1950 F 
câble imprimante (pour TOS) ......…. 190 F 























l'ensemble : TO7/70 (clavier mécanique) + 
magnétophone + 2 logiciels + 2-revues 
TE phile........ : à 












©] L'ensemble : MOS (clavier mécanique) + 
magnétophone + a FAR + 2 logiciels 














+2 TEOphini 990 F 
revues TEOphine . 7250 
Cassettes vierges C20 
Tes Bis de 2e rosémmsentenon is 45: Fe. 
ES MR diet ace < 80 F 


Grâce à cette interface vous pouvez brancher 
e type de manettes de jeux que vous désirez. 
De plus un bus de sortie vous permet de bran- 
cher en même temps un autre périphérique. 


NOUVEAU Ÿ 












interface pour MO5 ................. 345 F 
interface pour TO7 et 

TOUTES suis tenie 2éte 2 395 F 
—_interf + 2 quickshot Il : 

pour MO5 ......... 
© pour T07 et T07-70 























. 


quickshot 2 





Grâce à cet interface vous pourrez brancher jusqu'à 3 appareils 
en sortie péritel sur votre moniteur ou téléviseur (câble rac- 


cord non fourni] interface multi-péritel .… ,495 F 
Câble péritel mäle-femelle : nécessaire po nnecter l'inter- 


face multi-péritel il peut aussi être utilisé comme rallonge 
péritel pour tout appareil. 
rallonge péritel (1,20 m) ........................ 235F 

















— Cocher le(s) article(s désiré(s ou faites-en une liste sur une feuille à part. — Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour tout achat supérieur à 1000 F). 





















































TÉL. : 


























Je possède : L1TO7 MO5 MO7-70 TO9 
NOM : PRÉNOM : 
ADRESSE : 
Mode de paiement : [] chèque mandat [] contre-remboursement (prévoir 20 F de frais) 





envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


CODE POSTAL : 


VILLE : 





TEO 3 réseau 




















CANTELEU GOSSE WALLERS SIMON LJON MINACORI FIRMINY CAETAND RITES DIF PARIS 
CAL VILLENEUVE BIENVILLE MORNE A L'EAU MONZAT SEILHAC VERMEIREN WORMHOUT VANNIER SAINT GELY FAURIS VENELLES 
E BERG FIRPO MARSEILLE MASSART GIVET BENART ILEDE DUFAX EXCOFFIER ALBERTVILLE 
AULET IRMINY COISSAC MONTROUGE BIETTRON LA PACAUDIERE LA REUNION SADOUS SAINT PRIEST FLORK EPERNON 
GEAY LONDINIERES COIFFIER VICLE COMTE COQUELIN PARIS CHARIGNON LYON BESTEL NOTREDAME GOSSERET BISCAROSSE 
UCHAIS AVRILLE DELOIZY CRETEIL PENOT ONTENAY DIDELOT MONTERENDER in DÉBONENILE  LERERRE ca 
LYON SOUS BOIS s A MONTDIDIEZR 
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En raison d’impératifs techniques, les listings de “Raccordez un Minitel et un TO7”, parus 
_ dans le n° 2 de TEOphile, seront publiés dans le n° 4. La Rédaction. 








Momot 
(Suite et fin) 


Modifications : supprimer la seconde partie de la ligne 800 (interrompre à 


L$=) du programme 


Momot. 
Dans le listing ci-dessous, remplacer à la ligne 440 CO+TA+4 par COT et 


re 
436 COT: TA+4:IF COT:80 
"B" OR D$="H" OR 


COT=80ELSE IF 
D$="Q" AND COT:% THEN COT=9%6 


1 VERSION DU 22/02/86 AVEC VISUALISATIO 

N DES LIGNES 

10 CLEAR, &H9EFF :LOADM"ACNOS" 

20 CONSOLEO, 24: CLS: SCREEN7, 0, 0: CLEAR1000 

:7T1$="":0NERROR 6010920 

25 A=0:B=0:C=0:A$="":B$="";L6z" "1 65" "1 

$="":L=0:LL=0:6=0:60SUB950 

30 60SUB40:LOCATEO, 21:PRINT"POUR ARRETER 
L'IMPRESSION, APPUYER SUR L’EXTRENITE 

DU CRAYON OPTIQUE PENDANT QUE L’IMPRIM 

ANTE FONCTIONNE. “:CONSOLEO,20:ONCOL 60TO 

430,610 

40 BEEP:CLS:PRINT"Votre texte comporte * 

::60SUB1500:L=LOF (1): 1=L+1 

41 1=1-1:6ET#1, 1: IFA$C)SPACES (C0+20) THEN 

42ELSE41 

42 L=1:CLOSE#1 

43 PRINTL; "lignes." 

45 BEEP:PRINT"Tapez le numero de la poli 

ce de caracte-res que vous desirez.":PRI 

NT 

50 RESTORE970:FORI=1T08: READCH$: PRINTCHS 

:PRINT:NEXT:COLOR1: BEEP:PRINT"Attention 

1 Si vous choisissez la poli-ce ’STANDA 

RD’, les ’c’ seront iaprises en #ajuscu 

les !!!":C0L0R7,0 

60 PRINT"POUR ARRETER, TAPER 0":ATTR=0 

70 D$="":1$=INPUTS(1):C=VAL(I$) 

75 IFC=0THEN1200 

80 IFC=1THENDS=D$+"D":NC=136: 6070150 

90 IFC=2THENDS=D$+"U":NC=136: 600150 

100 IFC=3THENDS=D$+"N" :NC=80: 6070150 

110 IFC=4THENDS=D$+"H":NC=80: 60T0150 

120 IFC=5THENDS=D$+" Q":NC=96: 6070150 

130 IFC=6THENDS=D$+"B": NC=80: 6070150 

135 IFC=7THENATTR=1: 607070 

137 IFC=BTHENAGR=1 : 60T070 

140 607040 

150 IFNC<CO THENBEEP:PRINT"Vous ne pouve 

2 pas utiliser cette policede caracteres 
, vos lignes sont trop lon-ques. Choisis 
sez en une autre, ":PLAY"PPP":G60T040 

160 RESTORE970:CLS:BEEP:PRINT"Caracteres 
choisis: ":FORI=1T06: READCHS (1) :NEXT: PRI 

NTCH$(C) 


170 IFNC<=(C0+2)4} THENBEEP:PRINT"Vous n 


e pouvez jariner qu’en une seule colonn 
e":CL=1:60T 


180 PRINT"Tapez le nombre de colonnes de 

sire:" 

190 PRINT"Vous pouvez ispriser en une ou 
deux co- lonnes.":C0L=2 

200 B0X(8,56)-(32,79):B0X(40,56)-(64,79) 
210 LOCATE2,8:PRINT"1":LOCATE6, 8: PRINT"2 


220 I$=INPUT$(1) 

230 CL=VAL(1$) : IFCL<10RCL }2THEN220 

250 COL=CL:CLS:BEEP:PRINT"Vous allez iap 

riser en ";C0L; "colonne"; : IFCOL={THENPRI 

NT", ":ELSEPRINT's, " 

260 PRINT'avec les caracteres":PRINTCHS( 

C):PRINT 

270 COLORI,0:PRINT"Pour arreter l’inpres 

sion, tapez 0.":COLOR7,0:PRINT 

275 ATTRBI,0:PRINT" Votre texte comporte" 
;L;"lignes.":ATTRBO,0 

305 PA=65:PRINT"Vous pouvez en iapriner" 
PA#COL;" par page." 

310 IFLL=L THENPRINT'Iapression terainee 

. ":CONSOLE?, 24: 60701200 

320 PRINT"Vous etes arrive a la ligne";L 

L:INPUT"A partir de quelle ligne voulez- 

vous  jiapriner ";6:IF6<O0RG>L THENPRIN 

T'IMPOSSIBLE, RECOMMENCEZ. ":6070270:ELSE 
IF6=0THEN1200 

322 L6=6:60SUB1500: 60SUB1600:6=L6 

330 LOCATEO, 12: INPUT" Jusqu’a quelle lign 

e ";LL:IFLLDL ANDCOL={THENPRINT"IMPOSSIB 

LE":6070330:ELSEIFLLDL ANDCOL=2 THENPRIN 
T'Votre texte va se tersiner par ";L-LL: 

PRINT"lignes blanches." 

333 IFLG)L ANDCOL=1THENLE=L 

335 L6=LL:60SUB1500:60SUB1600:LL=LG 

340 CLS:PRINT:PRINT"Vous pouvez faire av 
ancer le papier en appuyant sur la touc 

he ?LINE FEED’ de l’iaprisante.":PRINT 
:PRINT"Pour continuer ---} ENTREE":COLOR 
7,0 

350 1$=INPUTS(1):IF1$C)CHRS (13) THENSSOEL 
SERETURN 

360 CLS:BEEP:PRINT"L’iapression est tera 
inee,":PRINT:PRINT'"Voulez-vous une autre 
iapression? (0/N)":1$=INPUT$ (1) 

370 IFI$="N"ORI$="n"THEN1200ELSERUN20 
430 TA=INT (NC-C0) /2+1: IFATTR=1THENTA=INT 
(TA/2) 

435 IFTACOTHENTA=0 

440 GOSUB1500:LPR$="LPRT: ("+MIDS$ (STR$ (CO 
+TA+#4),2)+") ":0PEN"0",#3,LPR$:PRINT#3,CH 


R$(27)+D$3; : PRINT#3,CHR$ (13) ; : IFATTR=1THE 
NPRINT#3,CHR$ (14) ;CHR$ (13) 

445 IFAGR=1THENPRINT#3,CHR$ (27); "#"; CHR 
(13); 

450 TA$=SPACES$ (TA) 

460 FORK=6 TOLL:CLS:6ET#1,K:L$=SPACES (CO 
+20) : B$=SPACES (C0+20) : A=VARPTR (A$) : B=VAR 
PTR(L$) :C=VARPTR(B$) :POKEKH9FFO,PEEK (A): 
POKELH9FF 1 ,PEEK(A+1) :POKE&H9FF2,PEEK (A+2 
):POKE&H9FF3,PEEK(B+1) 

461 POKE&H9FF4,PEEK (B+2) :POKE&H9FFS, PEEK 
(C+1):POKELH9FF,PEEK (C+2) 

500 EXEC&H9F00 

510 L$=TAS+L$: B$=LEFTS (B$, C0) :B$=TA$+B$ 
520 PRINT#3,B$;CHR$(13):L$3: PRINTHS,CHRS 
(13); 

525 IFPTRIG THENBEEP:60701200 

530 NEXT:ATTR=0: AGR=0:PRINT#3,CHR$ (27) ;C 
HR$(15)CHR$ (27) ;"$" 3 CHR$ (13) ; : CONSOLEO, 2 
4:P=P+{1:IFLLL THENPRINT'POUR CHANGER DE 
PAGE, FAITES AVANCER LE PAPIER, ":CLOSE: 
60SUB40:ONCOL 6070430, 610 

540 PRINT#3, INIT$: : CLOSE: 6070360 

610 CLOSE: CLS:CC=(C082)+TA+40:LPR$="LPRT 
2 ("4MID$(STR$(CC),2)+") ":GOSUB1500: OPEN" 

0",#3,LPR$:PRINT#3,CHR$(27)+D$;CHR$ (13); 

620 0=C042:TA=INT((NC-0)/2)-1: IFTACOTHEN 
TA=0 

630 Z=LL+1-6:1F2/2C)INT(Z/2)THENZ=INT(7/ 
2)#1:FT=6+2+1:ELSEZ=INT(Z/2):FT=6+2-1 

640 FORK=6 TOFT:L$="":B$="":GET#1,K:IFK) 

LL-7+1 THEN820 

650 B$=SPACES (C0+20) :E$=SPACES (C0+20) :L$ 

=SPACES (C0+20) : J$=SPACES (C0+20) 

660 A=VARPTR(A$) : B=VARPTR (LS) :C=VARPTR(B 

$):POKE&H9FFO,PEEK (A) :POKE&H9FF 1, PEEK (A+ 
1):POKE%H9FF2,PEEK (A+2) :POKE&H9FF3, PEEK ( 

B+1):POKE&H9FF4,PEEK (B+2) :POKE&H9FF5,PEE 

K(C+1) :POKEUH9FF6,PEEK (C+2) : EXEC&H9F 00 

750 IFK+1)LL ORK+Z>L THENBOOELSEGET#1,K+ 

1 

760 A=VARPTR (A$) : B=VARPTR (J$) :C=VARPTR(E 

$):POKE&H9FFO,PEEK (A) :POKESH9FF1,PEEK (A+ 
1):POKE&H9FF2,PEEK (A+2) : POKE&H9FF3,PEEK( 

B+1) :POKEMH9FF4,PEEK(B+2) : POKEKH9FF5,PEE 

K(C+1):POKE&H9FF6, PEEK (C+2) : EXEC&H9F 00 

800 B$=LEFTS(B$,C0):E$=LEFTS(E$,C0) 

810 PRINT#3,TAB(TA):B$;CHR$ (13) ; :PRINT#S 

, TAB(TA+CO+4) ;E$;CHR$ (13) ; :PRINTH3, TAB{T 

A)3L$3CHRS (13) ::PRINT#3, TAB(TA+CO+4) ;J$: 

CHR$(13) ; : IFNC/2-CO>20THENPRINT#3 

815 IFPTRIGTHENBEEP:60T01200 

820 NEXT:CONSOLEO, 24:P=P+1:IFLLCL THENPR 

INT'POUR CHANGER DE PAGE, FAITES AVANCER 





LE PAPIER. ":CLOSE:60SUB40:ONCOL 5070430 
,810 
830 PRINTAS, INITS: :CLOSEH3: GOTO360 
920 BEEP: IFERR=SSTHENCLS:PRINT"L’inpriaa 


nte n’est pas branchee: eteignez 
l’unite centrale, allusez l’ia-prisante, 
de nouveau l’unite centrale, puis rech 
argez votre prograane.":END 

925 IFERR=62ANDERL=1210THENPRINT"REMETTE 
1 LA DISQUETTE PROGRAMME EN PLACEET TAPE 
1 ENTREE. ": I$=INPUTS$ (1) : RUN"MOMOT" 

930 IFERR=62THENCLS:PRINT"Ce fichier n’e 
xiste pas sur cette dis- quette...":PRI 
NT" - changer la disquette ----} 1":P 
RINT"  - changer le titre -------- À 
+DIR: I$=INPUTS (1) : IFI$="{"THENRESUME9860E 
LSERESUNE 955 

935 IFERR=S3THENPRINT "ACTIVEZ LE BOUTON 
?ON-LINE" DE L’IMPRI- MANTE ET TAPEZ ENT 
REE. “:1$=INPUTS$ (1) : RESUME 

940 PRINT"Erreur";ERR;"en ligne"; ERL:BEE 
P:END 

950 PRINT'Remettez la disquette texte da 
ns le lecteur puis tapez ENTREE," 
951 I$=INPUT$(1):IFI$=""THENOS] 


1 VERSION DU 22/02/88 AVEC VISUALISATIO 
N DES LIGNES 

10 CLEAR, &HDEFF:LOADM"ACTO7" 

20 CONSOLEO, 24: CLS: SCREEN7,0, 0: CLEAR1000 
:11$="":0NERROR 6070920 

25 A=0:B=0:C=0:A$="":B$="":L$="":E$=" "27 
$="":L=0:LL=0:6=0:60SUB950 

30 6OSUB40:LOCATEO, 21:PRINT"POUR ARRETER 
L'IMPRESSION, APPUYER SUR L’EXTREMITE 

DU CRAYON OPTIQUE PENDANT QUE L’IMPRIM 
ANTE FONCTIONNE. ":CONSOLEO, 20:ONCOL 60TO 
430,610 

40 BEEF:CLS:PRINT" Votre texte comporte * 
;:60SUB1500:L=LOF (1): I=L+1 

A1 1=1-1:6ET#1,1:IFA$<)SPACES (C0+20) THEN 
42ELSE 41 

42 LeI:CLOSE# 

43 PRINTL; "lignes." 

45 BEEP:PRINT"Tapez le numero de la poli 
ce de caracte-res que vous desirez.":PRI 
NT 

50 RESTORE970:FORI=1T08:READCH$: PRINTCHS 
:PRINT:NEXT:COLOR1: BEEP:PRINT'Attention 


952 OPEN"I",#1,"TITRE,TIT": INPUT#H,T1$:C 
LOSE:IFT1$="VIDE"THENCLS:60TO955ELSE PRI 
NTTI$:PRINT"EST-CE LE BON TEXTE {0/N) ?" 
1I$=INPUT$ (1): IF1$="0"OR1$="0"THEN960 
955 INPUT'"Titre du texte a charger: ",TI 
$:TIS=LEFTS(T1$,8) 
960 OPEN"I",#1,TI$+", TXT": INPUT#1,C0:CLO 
SE: RETURN 
970 DATA"INDICES =======} {36c/l. 50 c/ 
s ==} {","EXPOSANTS =====} {36c/1. 60 c 
15 ==} 2", "STANDARDS =====} 80 c/1. 190 
c/s ==} 3","PICA COR. =====} 80 c/1, 25 
c/s ==} 4","ELITE COR. ====} 96 c/1, 3 
0 c/s ==} S","ITALIQUES =====} 80 c/1. 
25 c/s ==} 6" 
975 DATA"CARACTERES DOUBLE LARGEUR ===== 
2222} 7", "CARACTERES GRAS =========222222 


1200 CLS:PRINT"OK, ON ARRETE. ":CLOSE:OPE 
N°0", #1,"TITRE, TIT':WRITE#1, "VIDE": CLOSE 
:PRINT"PQUR RELANCER LE PROGRAMME ====== 
===} {":PRINT"POUR TRAITER OÙ CREER UN T 
EXTE =====} 2":PRINT'POUR ARRETER ====== 


1205 PRINT"POUR IMPRIMER LE CATALOG DISG 


Programme IMP TO7 


! Si vous choisissez la poli-ce *STANDA 
RD’, les ’c’ seront iaprises en aajuscu 
les !!!*:COLOR7,0 


60 PRINT"POUR ARRETER, TAPER 0":ATTR=0 
70 D$="":1$=INPUTS(1):C=VAL(I$) 

75 IFC=0THEN1200 

80 IFC=1THEND$=D$+"D":NC=136: 6070150 

90 IFC=2THENDS=D$+"U":NC=136: 60T0150 

100 IFC=3THEND$=D$+"N":NC=80: 6070150 

110 IFC=4THENDS=D$+"H":NC=80: 6070150 

120 IFC=STHENDS=D$+"Q":NC=96: 6070150 

130 IFC=6THENDS=D$+"B":NC=80: 6070150 

135 IFC=7THENATTR=1:G0T070 

137 IFC=8THENABR=1 : 607070 

140 607040 

150 IFNCCCO THENBEEP:PRINT"Vous ne pouve 
z pas utiliser cette policede caracteres 
, vos lignes sont trop lon-ques. Choisis 
sez en une autre.":PLAY"PPP":60T040 

160 RESTORE970:CLS:BEEP:PRINT"Caracteres 
choisis: ":FORI=1TO6:READCHS (I): NEXT:PRI 

NTCH$(C) 


UETTE =} 4" 

1210 I$=INPUTS(1):1F1$="1"THENRUN20ELSEI 
F1$="2"THENRUN"MOMOT. BAS"ELSEIF1$="4"THE 
NREUN"CATALOG"ELSEOPEN"0", #1, "LPRT: (80) " 
: PRINT#1,CHR$ (27) ; CHR$ (64) : CLOSE 

1220 END 

1500 CLOSE:OPEN"D",#1,T1$+".TEX":FIELD# 
,C0+20 AS A$:RETURN 

1600 CONSOLE21,24: CLS: COLDRO, 7:LOCATEO, 2 
2:PRINTUSING"Ligne no ###";L6:LOCATEC, 23 
PRINT" Valider ==} ENTREE Modifier == 
FLECHES"; :COLOR7, 0 

1605 CONSOLE17,20:CLS:LOCATEO, 18: IFLGDL 
THENATTRBI,0:PRINT"LIGNE BLANCHE": :ATTRB 
0,0:ELSEGET#1,LG:PRINTAS; : SCREEN7, 0,0 
1610 IS$=INPUTS(1):IFI$=CHR$ (13) THENCONSO 
LEO, 24: CLOSE: RETURN 

1620 IFI$=CHR$(B)ORIS$=CHRS (11) THENLG=LG- 
1:607T018650 

1630 IFIS$=CHRS(9)0RI$=CHR$ (10) THENLG=LG+ 
1:LOCATE9, 22: PRINTUSING"#H#" ; LG: 60T01605 
1640 GOTD1610 

1650 IFLE{O THENLG6=0 

1660 LOCATE9,22:PRINTUSING"###":LG:G60T01 
605 


170 IFNC{=(C0+2)$2 THENBEEP:PRINT"Vous n 
e pouvez imprimer qu’en une seule colonn 
e":CL=1:60T0250 

180 PRINT"Tapez le nombre de colonnes de 
sire:" 

190 PRINT"Vous pouvez imprimer en une ou 
deux co- lonnes.":C0L=2 

200 BDX(8,56)-(32,79):B0X(40,56)-(64,79) 
210 LOCATE2,8:PRINT"1":LOCATES, 8: PRINT"2 


220 I$=INPUT$ (1) 

230 CLE=VAL(I$) : IFCL<10RCL >2THEN220 

250 COL=CL:CLS:BEEP:PRINT"Vous allez inp 
riser en “;C0L; "colonne": : IFCOL=1THENPRI 
NT", ":ELSEPRINT"s, 

260 PRINT"'avec les caracteres":PRINTCHS( 
C):PRINT 

270 COLORI,0:PRINT"Pour arreter l’inpres 
sion, tapez 0.":COLOR7,0:PRINT 

275 ATTRBI,0:PRINT"Votre texte nd 
3L;"lignes. ":ATTRBO, 0 

305 PA=65:PRINT"Vous pouvez en iapriaer" 
ÿPAÏCOL;" par page." 





310 IFLL=L THENPRINT"Iapression terainee 
. “:CONSOLE?, 24: 60101200 

320 PRINT"Vous etes arrive a la ligne";l 
L:INPUT"A partir de quelle ligne voulez- 
vous  iapriser “:6:IF6(00RG)L THENPRIN 
T'IMPOSSIBLE, RECOMMENCEZ. ":6010270:ELSE 
IF6=0THEN1200 

322 L6=6:60SUB1500:60SUB1600:6=L6 

330 LOCATEO, 12: INPUT" Jusqu’a quelle lign 
e ";LL:IFLLL ANDCOL=1THENPRINT" IMPOSSIB 
LE":6070330:ELSEIFLL)L ANDCOL=2 THENPRIN 
T“Votre texte va se terminer par ";L-LL: 
PRINT'lignes blanches." 

333 IFLG)L ANDCOL=1THENLG=L 

335 L6=LL:60SUB1500:60SUB1800:LL=LE 

340 CLS:PRINT:PRINT"Vous pouvez faire av 
ancer le papier en appuyant sur la touc 
he ?LINE FEED’ de l’iaprisante.":PRINT 
:PRINT"Pour continuer ---} ENTREE":COLOR 
7,0 


350 I$=INPUTS(1):IF1$C)CHRS (13) THEN3SOEL 
SERETURN 

360 CLS:BEEP:PRINT"L’iapression est tera 
inee.":PRINT:PRINT"Voulez-vous une autre 
iapression? (0/N)":1$=INPUTS$ (1) 


370 1F1$="N"ORI$="n"THEN1200ELSERUN20 

430 TA=INT (NC-C0)/2+1: IFATTR=1THENTA=INT 
(TA/2) 

435 IFTACOTHENTA=0 

440 60SUB1500:LPR$="LPRT: (*+MID$ (STR$ (CO 

+TA+4),2)+") ":OPEN"0",#3,LPR$:PRINTH3, CH 

R$(27)+D$: : PRINT#3, CHR$ (13) ; : IFATTR=1THE 

NPRINT#3,CHR$ (14) ; CHR$ (13) 

445 IFAGR=1THENPRINT#3, CHR$ (27) ; "#4"; CHRS$ 
(13); 

450 TA$=SPACES (TA) 

460 FORK=6 TOLL:CLS:6ET#1,K:L$=SPACES (CO 

+20) : B$=SPACES (C0+20) : A=VARPTR (A$) : B=VAR 

PTR(LS$) :C=VARPTR(B$) : POKE&HDFF 0, PEEK (A) : 

POKELHDFF1,PEEK(A+1) : POKE&HDFF2,PEEK (A+2 
):POKELHDFF3,PEEK(B+1) 

461 POKELHDFF4,PEEK (B+2) :POKERHDFFS, PEEK 
(C+1):POKEGHDFF6, PEEK (C+2) 

300 EXEC&HDFO0 

510 L$=TAS+LS: B$=LEFT$ (B$, C0) : B$=TA$+B$ 
520 PRINT#3,B$:CHR$ (13) ;L$; : PRINT#3,CHR$ 
(13); 

525 IFPTRIG THENBEEP:60101200 

530 NEXT:ATTR=0:AGR=0:PRINT#3, CHR$ (27); C 

HR$(15)CHR$ (27) ; "$" 3; CHR$ (13) ; : CONSOLEO, 2 
4:P=P+1:IFLL<L THENPRINT'POUR CHANGER DE 
PAGE, FAITES AVANCER LE PAPIER. ":CLOSE: 
60SUB40:ONCOL 6070430, 610 


540 PRINT#3, INIT$: : CLOSE : 6010360 
610 CLOSE:CLS:CC=(C02)+TA+40:LPR$="LPRT 
: ("+MIDS (STR$ (CC) ,2)+") ": 60SUB1300: OPEN" 
0",#3,LPR$:PRINT#3,CHR$(27)+D$;CHR$ (13); 
620 0=C042:TA=INT ((NC-0)/2)-1: IFTACOTHEN 
TA=0 
630 Z=LL+1-6:1F2/2C)INT(Z/2)THENZ=INT (2/ 
2)+1:FT=6+2+1:ELSEZ=INT (2/2): FT=6+7-1 
640 FORK=6 TOFT:L$="":B$="":GET#1,K:IFK) 
LL-Z+1 THEN820 
650 B$=SPACES (C0+20) :E$=SPACES (C0+20) :L$ 
=SPACES$ (C0+20) : J$=SPACES (C0+20) 
660 A=VARPTR(A$) : B=VARPTR (LS) : C=VARPTR(B 
$):POKEUHDFFO, PEEK (A) : POKE&HDFF 1, PEEK (A+ 
1) :POKE&HDFF 2, PEEK (A+2) : POKERHDFF3, PEEK( 
B+1) :POKE&HDFF4,PEEK (B+2) : POKERHDFF5,PEE 
K(C+1) :POKESHDFF6, PEEK (C+2) :EXEC&HDF00 
750 IFK+Z)LL ORK+Z)L THENSOOELSEGET#1,K+ 
1 
760 A=VARPTR(A$) : B=VARPTR(J$) : C=VARPTR(E 
$):POKELHDFFO,PEEK (A) : POKEHDFF 1 ,PEEK (A+ 
1) :POKEUHDFF 2, PEEK (A+2) : POKELHDFF3,PEEK ( 
B+1):POKE&HDFF4,PEEK(B+2) : POKE&HDFF5,PEE 
K(C+1):POKE&HDFF6, PEEK (C+2) : EXEC&HDF 00 
800 B$=LEFTS(B$,C0) :E$=LEFTS (E$,C0) 
810 PRINT#3,TAB(TA) :B$:CHR$ (13) ;:PRINT#S 
4 TAB(TA+C0+4) ;E$5;CHR$ (13) ; :PRINT#3S,TABIT 
A):LS$:CHRS (13) ; :PRINT#3, TAB(TA+CO+4) ;J$; 
CHR$ (13) ; : IFNC/2-CO)20THENPRINTSS 
815 IFPTRIGTHENBEEP : 60701200 
820 NEXT:CONSOLEO, 24:P=P+1:IFLL<L THENPR 
INT'POUR CHANGER DE PAGE, FAITES AVANCER 
LE PAPIER. ":CLOSE:60SUB40:ONCOL 60TD430 
,610 
830 PRINT#3, INIT$; :CLOSE#3: 6070360 
920 BEEP:IFERR=5STHENCLS:PRINT"L’iaprisa 
nte n’est pas branchee: eteignez 
l’unite centrale, allusez l’ia-prisante, 
de nouveau l’unite centrale, puis rech 
argez votre programe. ":END 
925 IFERR=62ANDERL=1210THENPRINT"REMETTE 
1 LA DISQUETTE PROGRAMME EN PLACEET TAPE 
1 ENTREE. ":1$=INPUTS (1): RUN"MOMOT" 
930 IFERR=62THENCLS:PRINT"Ce fichier n’e 
xiste pas sur cette dis- quette...":PRI 
NT" - changer la disquette ----} 1":P 
RINT"  - changer le titre -------- ) A6 de 
: DIR: I$=INPUTS (1): IFI$="1"THENRESUME960E 
LSERESUME955 
935 IFERR=S3THENPRINT"ACTIVEZ LE BOUTON 
?ON-LINE" DE L’IMPRI- MANTE ET TAPEZ ENT 
REE. ":1$=INPUT$(1):RESUME 
940 PRINT'Erreur";ERR;"en ligne"; ERL:BEE 
P:END 


950 PRINT'Renmettez la disquette texte da 
ns le lecteur puis tapez ENTREE." 
951 IS$=INPUT$(1):1F1$=""THEN9SI 

952 OPEN"I",#1, "TITRE, TIT'": INPUT#1,T1$:C 
LOSE:IFT1$="VIDE"THENCLS:60T0955ELSE PRI 
NTTI$:PRINT"EST-CE LE BON TEXTE (O/N) ?* 
:1$=INPUTS (1): IF1$="0"DRI$="0"THEN960 
953 INPUT'Titre du texte a charger: ",TI 
$:TIS=LEFTS(TI$,8) 

960 OPEN"I",#1,T1$+", TXT": INPUT#1,C0:CLO 
SE:RETURN 


970 DATA"INDICES =======}) {36c/1. 50 c/ 
s ==} {","EXPOSANTS =====} {36c/1, 60 c 
15 ==) 2", "STANDARDS =====} 80 c/1, 100 
c/s ==) 3","PICA COR. =====} 80 c/l, 25 
c/s ==} 4","ELITE COR. ====} 96 c/1. 3 
0 c/s ==) 5", "ITALIQUES =====}) 80 c/1. 
25 c/s ==} 6" 
975 DATA"CARACTERES DOUBLE LARGEUR ===== 
sz2=} 7","CARACTERES GRAS =====222222222 


1200 CLS:PRINT"OK, ON ARRETE, *:CLOSE:OPE 
N'0",#1, "TITRE. TIT":NRITE#1, "VIDE": CLOSE 
:PRINT"POUR RELANCER LE PROGRAMME ====== 
=2=}) {":PRINT"POUR TRAITER OU CREER UN T 
EXTE =====} 2": PRINT*POUR ARRETER ====== 


1205 PRINT"POUR IMPRIMER LE CATALOG DIS 
UETTE =} 4" 

1210 I$=INPUTS(1): IF1$="1"THENRUN20ELSEI 
FI$="2"THENRUN"NOMOT, BAS"ELSEIF1$="4"THE 
NREUN"CATALOG"ELSEOPEN"0",#1, "LPRT: (80) " 
:PRINT#1,CHR$ (27) ; CHR$ (64) : CLOSE 

1220 END 

1500 CLOSE: OPEN"D",#1,11$+".TEX":FIELD#1 
,C0+20 AS A$:RETURN 

1600 CONSOLE21,24:CLS:COLORO, 7:LOCATEO, 2 
2:PRINTUSING"Ligne no ###";LG:LOCATEO, 23 
:PRINT" Valider ==} ENTREE Modifier ==} 
FLECHES"; : COLOR7, 0 

1605 CONSOLE17,20:CLS:LOCATEO, 18: IFLGDL 
THENATTRB!,0:PRINT"LIGNE BLANCHE"; : ATTRB 
0,0:ELSEGET#1,L6:PRINTAS; : SCREEN7, 0,0 
1610 I$=INPUTS$ (1): IFI$=CHR$ (13) THENCONSO 
LEO, 24: CLOSE: RETURN 

1620 IFI$=CHR$(B)DRI$=CHRS (11) THENLG=LG- 
1:60701650 

1830 1FI$=CHR$ (9) DRI$=CHRS (10) THENLG=L6+ 
1:LOCATE9, 22: PRINTUSING"###"; LG: GOTO1605 
1640 G0TO1610 

1650 IFL6(O THENL6=0 

1660 LOCATE9,22:PRINTUSING"###";L6:60TOI 


605 
À À À 





Génaventure 


(Suite 
ef fin) 


1}) 

2440 NEXT 

2458 POKE TD+IN#18+3, INAGE 

2468 POKE TD+IN#18+4 VIE 

2470 POKE TD+1M#18+9,PIECE 

248 POKE TD+IN#10+5,ASC(MIDS(ACTS,1,1)) 
2490 POKE TD+IN+10+6,ASCMIDS(ACTS,2,1)) 
2500 POKE TD+IN#10+7,ASC(MIDS(ACTS,3,1)) 
2518 RETURN 

2515 REN #4 AFFICHAGE DE L'ICONE #4 

2528 FOR 1:0 TO 3 

2330 EN=PD+IN4324148 

2548 DEFGR$(1)=PEEK (EN) ,PEEK(EN+1) ,PEEK( 
EN+2) ,PEEK (EN+3) ,PEEK (EN+4) ,PEEK (EN+5) ,P 
EEK(EN+6) ,PEEK(EN+7) 

2558 NEXT 

2560 COLOR 7,8:B0X (55,159)-(72,176),1 
2570 LOCATE 7,2@:PRINTGRS (8) 

2388 LOCATE 7,21:PRINTERS (1) 

2598 LOCATE 8,28:PRINTGRS (2) 

2688 LOCATE 8,21:PRINTGERS (3) 

2618 RETURN 

2615 REN ## CHOIX DE LA CASE DE DEPART # 
4 

2628 COLOR ! 

2630 I=PEEK(TD#317)+#1 

2648 LOCATE 8,28 


2650 PRINT'Case de depart n°; 
266@ ENS="" 

2670 FOR Y=8 T0 9 

2688 EN=PEE (AD+(1-1) #55) 
2690 IF EN=@ THEN 2728 

2706 EN$=ENS+CHRS (EN) 

271@ NEXT 

2728 PRINTI;ENS$;CHR$ (24) 

2730 ENS=INKEYS:1F ENS="" THEN 2738 
2748 IF ASC(ENS)=13 THEN POKE &H413D,1-1 
RETURN 

2790 IF ASC(ENS}=11 THEN I=1+] 
2768 IF ASC(ENS)=18 THEN 1=1-1 
2770 IF 161 THEN I=NJ#N2 

2788 IF INLEN2 THEN I=1 

2798 60T0 2648 

2795 REN #+# SAUVEGARDE #4 

2818 SAVEN EN$,TD,TD+328,TD 
2828 ENS=ENS+"#" 

2838 SAVEN EN$,PD,PD+648 ,PD 
2840 ENS=ENS+"#" 

2858 SAVEN ENS ,AD,AD+4681 ,AD 
2868 RETURN 

2865 REN #4 CHARGEMENT #4 

287@ LOADN EN$ 

2928 NI=PEEK(TD+318) :N2=PEEK(TD+319) 
2938 RETURN 

2888 ENS=ENS+"#" 

2890 LOADN EN$ 

2900 ENS=ENS+"#" 

291 LOADN EN$ 


A REM HHREEHEREENEENEEEEREEEEEEEEEEEEEEEE 
2 REN # GENERATEUR DE JEUX D'AVENTURE # 
TOREM HERMANN 
S REN #4 Auteur : Ph, NOTTOLI] 

& REN 

7 REN #4 Troisiese partie 

8 REN 

9 REN ## INITIALISATION ## 

18 CLEAR,&HACE4,4 

28 LOADN"OB" 

38 AD=&HAEG7 

40 OD=LHB366 

50 TD=1H4080 

60 PD=KH5CCE 

63 COU=LHE7C3S: ENT=&HAD88: RAP=LHACES: INA= 
LHAE 84 

78 LOCATE 8,9,8 

88 CONSOLES, 24 

98 CLS 

108 SCREEN 0,8,8 

118 CONSOLE! ,22 

128 ENS=INKEYS 

138 NOM$="" 

148 COLOR 6 

158 LOCATE 5,5 

168 PRINT"Non du jeu ";NON$;" < ” 

178 ENS=INKEYS:EN=RND(1)21F EN$="" THEN 
178 

188 IF ASCIENS)=8 AND LEN(NONS) )8 THEN N 
ON$=LEFTS (NOMS ,LEN(NON$)-1) 

198 IF ASC(ENS)>31 AND ASC(EN$)(98 THEN 
NONS=NONS+ENS 

288 IF ASC(ENS)(>13 THEN 158 

205 REN #4 CHARGEMENT DU JEU ## 

218 SCREEN 8 

228 COLOR 3 





238 LOCATE 19,28 

248 PRINT'Une ainute" 

250 LOADN NOH$ 

268 NON$=NONS+"#" 

278 LOADN NOH$ 

288 NONS$=NON$+"#" 

298 LOADN NON$ 

308 CONSOLE, 221CLS 

318 NI=PEEK(TD+318) 

328 N2=PEEK(TD+319) 

325 REM #4 AFFICHAGE DU TITRE ## 
338 ATTRB 1,1 

348 FOR 1=8 T0 9 

338 LOCATE 18+142,4 

368 PRINT CHRS(PEEK(TD+288+1)) 
378 NET 

388 ATTRE 8,8 

398 ENS=INKEYS: I=RND(1):1F EN$="" THEN 3 
L | 

488 CLS 

418 POKE COU,PEEK (COU)ORI 

428 VIE=308 

438 IN=PEEK(TD+317) 

448 NI=PEEK(TD+318) 

458 N2=PEEK(TD+319) 

468 E2=INT(IN/N1):E1zIN-E28N! 
465 REN #4 REPARTITION DES ELEMENTS ALEA 
TOIRES ## 

478 FOR 1=8 T0 19 

498 1F PEEK(TD+I#18)=32 THEN 540 
498 1F PEEK(TD+1#18+9)(N1#N2 THEN 548 
508 IN=INT(RNDI1)#(N1#N2)) 

518 PORTE=PEEK (AD+1N#55+58) 

528 IF PORTE=@ THEN 508 

530 POKE TD+1#18+9,IM 

548 NEXT 

558 PO=8 

568 BOX (8,176)-(388,183) ,4 


378 CONSOLE ,21 

973 REN ## DEBUT DU JEUX ## 
588 CLS 

398 IN=E24N1+E1 

608 PORTE=PEEK (AD+IN#55+50) 
618 POKE IMA,PEEK(AD+IM#55+51)-12EXEC RA 
P 

628 COLOR 6 

638 LOCATE 28,3 

648 FOR 1=8 T0 9 

638 EN=(PEEK (AD+IN#55+1)) 

668 IF EN=8 THEN 698 

678 PRINT CHR$(EN); 

688 NEXT 

698 COLOR 3 

788 LOCATE 18,6 

718 FOR 128 TO 19 

728 EN=(PEEK(AD+1N#55+18+1)) 
738 IF EN=8 THEN 828 

748 PRINT CHRS(EN)} 

738 NEXT 

768 LOCATE 18,8 

778 FOR 1=8 T0 19 

788 EN=(PEEK (AD+1N#55+18+28+1) ) 
798 IF EN=8 THEN 828 

888 PRINT CHR$(EN)} 

818 NEXT 

828 A2=0:A3=8 

838 LOCATE @,18:PRINTCHRS (24) 
848 LOCATE @,11:PRINTCHRS (24) 
838 LOCATE @,12:PRINTCHRS (24) 
868 LOCATE 8,13:PRINTCHRS (24) 
878 LOCATE @,14:PRINTCHRS(24) 
888 POKE &HE7C3,PEEK (&HE7CS)DRI 
885 REN #4 DECODAGE DES ICONES PRESENTS 
# 

898 FOR 1=8 T0 19 

908 1F PO=8 THEN 948 


Où Dali place-t-il 
le centre du monde ? is 


918 FOR Y=1 70 PO 

928 IF OBJ{Y)=1 THEN 1148 

938 NEXT YŸ 

948 AL=PEEK(TD+1#18) 

958 1F A1=32 THEN 1148 

968 AL2PEEK{TD+1#1849) 

978 1F A1C)IN THEN 1148 

988 COLOR 2 

998 LOCATE 8,18 

1880 PRINT'Tu trouve” 

1818 FOR Y=8 T0 3 

1020 AI=PEEK(TD+1#1843) 

1838 EN=PD+A1#324Y88 

1840 DEFGRS(Y)2PEEK (EN) ,PEEK(EN+1) ,PEEK( 
EN+2) ,PEEK(EN+3) ,PEEK (EN+4) ,PEEK(EN+5) ,P 
EEK (EN+6) ,PEEK (EN+7) 

1858 NEXT Y 

1868 COLOR 7,8:B0X (7+A248,95)-(2444288, 
112), 

1878 LOCATE 1+A2,12:PRINTERS (8) 

1888 LOCATE 1+A2,13:PRINTERS (1) 

1898 LOCATE 2+A2,12:PRINTERS (2) 

1189 LOCATE 2+A2,13:PRINTGERS(3) 

1118 A2=A243 

1120 AI=PEEK(TD+1#10+4) 

1138 IF ALDAS THEN AS=AI 

1148 NEXT I 

1145 REN #4 ATTENTE DES COMMANDES #4 
1158 EN$=INKEYS 

1168 LOCATE 8,16:PRINT"Consande :"3C0$jC 
HR$ (24) 

1178 LOCATE 8,17:PRINT"Reponse 1"JRES)C 
HR$ (24) 

1188 LINE (VIE,177)-(VIE,182),3 

1190 IF VIE=8 THEN 1798 

1288 1=8 

1218 EN$=INKEYS 

1228 IF EN$()"" THEN 1268 








1230 Is1+1 

1248 IF A3)8 AND I=15-A3 THEN VIE=VIE-1: 
6010 1188 

1258 60T0 1218 

1268 RE$="" 

1265 REN ## VERIFICATION DES DEPLACEMENT 
5 # 

1278 A1=PORTE OR 811F ASC(ENS)=11 AND PO 
RTE=A1 THEN 1718 

1288 AI=PORTE OR 4:1F ASC(ENS)=9 AND PDR 
TEsA1 THEN 1698 

1298 AIsPORTE OR 2:1F ASC(EN$)=18 AND PO 
RTE=AL THEN 1730 

1388 A1=PORTE OR 111F ASC(EN$)=8 AND POR 
TEs=A1 THEN 1678 

1318 IF EN$="/" THEN 60T0 1928 

1328 1F ASC(EN$)}31 AND ASC(ENS)(91 AND 
LEN(CO$)<7 THEN CO$=CO$+EN$ 360170 1168 
1338 1F ASC(EN$)=29 AND LEN(CO#)>@ THEN 
CO$=LEFT# (CO$,LEN(CO#)-1) 

1348 IF ASC(ENS)C)13 THEN 1168 

1345 REN ## DECODAGE DE LA COMMANDE #+# 
1338 1F LEN(CO$)43 THEN 1649 

1368 RE$="Iapossible" 

1370 POKE COU,PEEKICOU) OR 1 

1388 FOR 1=1 T0 LEN(CO$) -2 

1398 FOR Y=@ TO 19 

1480 IF PEEK(TD+Y#18+9)C)IN THEN 1438 
1418 IF PEEK(TD+Y#10) ()ASCINIDS(C0$,1,1) 
) THEN 1438 

1428 IF PEEK(TD+Y#18+1)=ASC(NIDS (C0$,1+1 
51)) AND PEEK(TD+Y#18+2)=A6C(NIDS#(C0$,1+ 
2,1)) THEN 1458 

1430 NEXT Y,I 

1448 6070 1648 

1450 IF Y=8 AND POCB THEN 1648 

1468 IF YC3 OR INT(Y/2)2Y/2 THEN 1528 
1470 1F PO=@ THEN 1519 

1488 FOR 1=1 TO PO 





1490 1F OBJ{I)2Y-1 THEN 1528 

1508 NEXT ! 

1518 6070 1648 

1328 RE$="Quelle action ?* 

1330 FOR Iz1 TO LEN(CO$)-2 

1948 IF PEEK(TD+Y#18+5) CASC(NID$(CO$,1, 
1)) THEN 1618 

1958 IF PEEK(TD+Y#18+6) (DASC(NIDS (COS, 1+ 
1,13) OR PEEK(TD+Y#18+7) ()ASC(NIDS (CO, I 
+2,1)) THEN 1618 

1368 PO=PO+ 

1578 OBJ(PO)=Y 

1384 C0$="* 

1598 RE$="Bien joue” 

1680 6070 828 

1618 NEXT ! 

1628 CO$="" 

1638 6070 1168 

1648 CO$="" 

1658 RE$="Iapossible" 

1668 60T0 1168 

1665 REN ## DEPLACENENT/VERIFICATION DES 
SORTIES #+ 

1678 Ei=E1-1 

1688 60701748 

1698 El=E1+ 

1788 60701748 

1718 E22E2-| 

1728 60701748 

1738 E2=E 241 

1748 CO$=°" 

1758 IF E1)-1 AND ELCN1 AND E2)-1 AND E2 
(N2 THEN 588 

1768 FOR 1=1 T0 PO 

1776 IF OBJ(1)=@ THEN 1850 

1788 NEXT 

1785 REN ## PERDU #+ 

1798 CLS 

1884 COLORI 


T-OYIDA) 


Je permets de suspendre 
un programme jusqu’à ce 


qu’un octet de la mémoire 


ait une valeur donnée. 
QUI SUIS-JE ? 


1818 ATTRB 1,1 
1828 LOCATE 8,18 

1838 PRINT'PERDU" 

1848 60701908 

1845 REN #4 GAGNE #4 

1858 CLS 

1868 COLOR 2 

1878 ATTRB 1,1 

1888 LOCATE 8,18 

1898 PRINT"BRAVO" 

1988 ENS=INKEY#:1F EN$="" THEN 1998 
1918 60T0 308 

1919 REN #8 AFFICHAGE DES OBJETS ACQUITS 
#+ 

1928 CLS 

1938 2201430 

1948 IF PO=8 THEN 2118 

1958 POKE COU,PEEK(COU) OR 1 

1968 FOR 1=1 TO PO 

1978 AL=PEEK (TD4+0BJ (1) #18+3) 

1988 FOR Y=8 TO 3 

1998 EN<PD+A14324Y48 

2008 DEFGRS (Y) =PEEK (EN) ,PEEK (EN#1) ,PEEK4 

EN+2) ,PEEK (EN+3) ,PEEK(EN+4) ,PEEK (EN#5) ,P 

EEK(EN+S) ,PEEK (EN+7) 

2818 NEXT Y 

2828 COLOR 7,8:B0X (63+A288,634A348)-(81 

+A248,81+388) ,1 

2838 LOCATE 8+42,8+A3:PRINTBRS (8) 

2048 LOCATE 8+A2,9+A3:PRINTERS (1) 

2858 LOCATE 9+42,8+A3:PRINTERS (2) 

2868 LOCATE 9+A2,9+A31PRINTGRS (3) 

2878 A2=A244:1F A2)25 THEN A2=81A3=A344 

2884 NEXT 1 

2898 ENS=INKEYS 

2188 ENS=INKEYS:1F EN$="" THEN 2108 

2118 6010 588 
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N°3 









perfectionné ? 


C'est pourquoi, dès à présent, 
(et dans les numéros à venir), 
nous vous proposons de “passer 
de l’autre côté de la barrière”, 
d'entrer dans EURIDIS, option 
CREER; vous comprendrez 
comment Jean-Claude Subert et 
Hachette Informatique se sont 
“mis en quatre” pour vous facili- 
ter la tâche. 


En effet, CREER propose quatre 
éditeurs fondamentaux : 


© TEXTE : qui permet d’instau- 
rer un dialogue ; 


© OBJET : premier éditeur gra- 
phique consacré à la réalisation 
de dessins sophistiqués, avec 
une précision maximale et en 
couleurs ; 


e FORME : second éditeur gra- 
phique réservé à la construction 
rapide de formes géométriques 
variées ; 


e PAGES: qui gère l’architec- 
ture de l'écran par un jeu de 
fenêtres (15 au plus par écran), 
de dimensions variables, dans 
lesquelles textes et graphismes 
s'afficheront à votre gré. 


Aujourd’hui, nous tenterons une 
première approche de l'éditeur 
TEXTE, sans entrer dans le détail 
des enchaînements logiques 
entre chaque élément du dialo- 
gue (encore appelé “item”). 


là trie 
du daacticiel 
Système Euridis 


Dans les deux numéros précédents, de TEOPHI- 
LE, nous vous avons proposé un tour d'horizon 
des potentialités d’EURIDIS : [ue graphi- 
ques, finesse et puissance du dia 

saient comme les critères déterminants de ce 
Système-Auteur, l’ensemble relevant de mani- 
pulations simples, à la portée de tous. Un petit 
accent de “magie” a pu émailler cette présenta- 
tion et, pourquoi pas, susciter le scepticisme de 
certains : comment le “commun des mortels” 
peut-il prétendre aboutir aussi aisément à de 
tels résultats et maîtriser sans peine un outil si 


Les bases 
du dialogue : 


Pour l'essentiel, élaborer un dia- 
logue avec EURIDIS suppose au 
préalable une réflexion pédago- 
gique : quels contenus, quels 
objectifs et quelles démarches 
choisir pour atteindre les buts 
visés ? 

Dans un premier temps, il vous 
faut donc décider de la suite 


des questions que l'ordinateur 
devra poser à l'élève. 


Puis, vous bâtirez le dispositif 
des BLOCS-QUESTIONS qui 
constitueront les étapes de l'iti- 
néraire de l’élève dans le dialo- 
gue. EURIDIS propose jusqu’à 
200 Blocs-Questions par tome 
et une disquette-élève (le résul- 
tat de votre création) contient 6 
tomes... de quoi cultiver l’art de 
la nuance ! 


Chaque Bloc-Question est ainsi 
structuré : 

e 1 QUESTION ; 

@ 15 familles de REPONSES- 
TYPES induites par cette ques- 
tion ; 

@ 15 COMMENTAIRES asso- 
ciés un par un à chacune de ces 
familles ; 

@ Les enchaînements (encore 
appelés “item de suite”) souhai- 


ogue apparais- 








tés en fonction des réponses 
fournies par l’élève. 


Les trois premières opérations 
correspondent à la rédaction de 
textes, en langue française, 
augmentées de codes destinés 
à agrémenter la lisibilité des 
messages et leur mise en page. 
Codes peu nombreux (nous y 
reviendrons) et facilement 
mémorisables par l'utilisateur ; 
au demeurant, une carte récapi- 
tulant les commandes et symbo- 
les utilisés dans EURIDIS, livrée 
avec le Système, vient au 
secours de l’auteur. 


Certains textes, QUESTION et 
REPONSES, notamment, seront 
affichés à l’écran ; d’autres, les 
REPONSES-TYPES par exemple, 
réservées à la logique interne 
du Système, restent en mémoi- 
re, Sans transparence pour l’élè- 
ve. 


Des “Menus 
our un service 
à la carte... 


Deux flèches æ et æ vous suffi- 
sent pour définir votre choix ; 
validez en appuyant sur la tou- 
che “ENTREE”. Une succession 
de “menus” s'offre à vous. Nous 
choisirons ensemble pour aller 
vite. 


Menu 1 : MODE AUTEUR 
Menu 2 : UTILITAIRES 

ET AUTRES EDITEURS 
Menu 3: CHOISISSEZ UN 
TOME : parmi les 6 options, 
choisissez celle qui est matériali- 
sée par un chiffre et une suite 
in signe que ce tome est 
vide 


Les grands choix 
pédagogiques : 
Dès lors, EURIDIS vous propose 


d'établir les orientations majeu- 
res de votre didacticiel : 


1. Indiquez la date de créa- 
tion : cette information sera 
désormais inaliénable. 


2. Précisez le titre du “tome” 
(ici “CODE DU PIETON"’, par 
exemple) sur lequel vous travail- 
lez; en mode élève, il sera 
automatiquement affiché au 
centre de l’écran par le Système. 


3. OPTION “#TU“ OU 
“VOUS“ : par la suite, tous les 
messages gérés par EURIDIS 
respecteront ces choix; vous 
communiquerez ainsi avec vos 
interlocuteurs sur le mode qui 
vous convient, en fonction de 
leur âge ou de votre degré d’in- 
timité.… 








4. SYSTEME DE BASE (O ou 
N): dans l'immédiat, répon- 
dons “O”: ultérieurement, si 
vous êtes conduits à utiliser un 
vidéodisque par exemple, vous 
choisirez de frapper “N”, cor- 
respondant au système “éten- 
du”. 


5. MEMORISE-T-ON LES 

REPONSES (O ou N) : si vous 
souhaitez faire un suivi de vos 
élèves, n'hésitez pas ! frappez 
#O" et EURIDIS vous permettra, 
à l'écran ou sur imprimante, de 
connaître pas à pas le parcours 


d’un individu ou d’une collecti- 


vité, de faire des études compa- 
rées.. Option non négligeable 
pour l'auteur aussi, compte- 
tenu des réponses formulées et 
mémorisées, vous pourrez affi- 
ner votre dialogue pour une effi- 
cacité maximale. 


6. FAUT-IL NOTER L'ELEVE (O 
ou N) : offrons-nous ce com- 
plément d'évaluation ; il servira 
aussi bien à l’auteur pour 
pimenter son didacticiel (affi- 
chage du score) qu’à l’élève : 
lorsque celui-ci quittera son tra- 
vail (à regrets n’en doutons 
as !), il pourra demander un 
ilan de ses exploits. 


7. CALCULETTE AUTORISEE 
(O ou N) : cet outil sera utile 
en bien des occasions ; un pic- 
togramme affiché au bas de 
l'écran, pointé au crayon opti- 
que, fera apparaître cette aide 
au calcul ; l'opération achevée, 
la calculette disparaîtra immé- 
diatement sans altérer la mise 
en page. Si vous choisissez cette 
option, EURIDIS vous propose- 
ra, pour chaque question, d’en 
autoriser où non l'accès. 


Après cette dernière sélection, 
EURIDIS va préparer votre tra- 
vail : c'est le message “TRA- 
VAIL EN COURS : PATIENTEZ” 
qui s'affiche. Puis le Système 
vous redonne la main par deux 
nouveaux “menus” : 


Menu 1: ACCES AUX EDI- 
TEURS PAGES OÙ TEXTES. 


Menu 2 : TEXTES : CREER DES 
ITEM TEXTES. 





Les nuances 


du dialogue. 


Le numéro 2 de TEOphile a 
déjà abordé la création d’un 
Bloc-Question en “procédure 
automatique” ; aussi, nous pro- 
posons-nous d'agir aujourd’hui 
en auteur plus confirmé. Nous 
choisissons, dans le menu 
interne à l'éditeur TEXTE, l’op- 
tion : CREER (item par item) qui 
nous laissera le loisir de créer à 
notre guise tel ou tel item, sans 
dépendre des chaînages logi- 
ques imposés par le Système... 
à nos risques et périls. ou pres- 
que, car EURIDIS dispose d’un 
utilitaire permettant de vérifier 
la logique des enchaînements 
(nous y reviendrons en temps 
utile !) qui analysera scrupuleu- 
sement toutes nos errances. 


L'écran suivant est déterminant. 
Chaque initiale permet d’accé- 
der à l'item que l’on souhaite 
créer : 


Xfnis (Boomerang) 
Question 
Réponse-type 
Commentaire 
Echo 

Aide 

Boucle 
Imprévu 
Hasard 
Protocole 
Stop (ou Suite) 


Créons la Question du Bloc 
No 10, puisque nous avons la 
liberté de commencer où bon 
nous semble. Nous compléte- 
rons à loisir les blocs précédents 
et suivants, conformément à 
notre rigueur ou sérieusement 
conseillés par celle d'EURIDIS... 


Un écran bleu apparaît, long de 


la trie 





au dlaacticiel 


40 colonnes et haut de 21 
lignes, prêt à enregistrer le texte 
de votre Question. La méthode 
la plus commode consiste à 
frapper ce texte “au kilomètre” ; 
EURIDIS se chargera ultérieure- 
ment de le plier et de le décour- 
per en fonction de la taille que 
vous imposerez à la fenêtre qui 
accueillera cette Question. Au 
message “Modifiez la fenêtre ou 
validez”, nous répondrons donc 
en frappant “ENTREE” (=valida- 
tion). Un curseur magenta se 
positionne en haut à gauche de 
votre écran. À vous d'entrer 
votre texte : 

Quand tu es en VILLE et que tu 
voyages 

SEUL, A PIEDS, comment dois- 
tu faire 

pour TRAVERSER ? 


C'est l'opération minimale ; 
dans un premier temps elle peut 
suffir. Vous aurez constaté au 
passage qu'arrivé à “SEUL” et à 
“pour”, l'éditeur a géré automa- 
tiquement le passage à la ligne 
suivante. Pour quitter cet item, 
appuyons sur STOP. 


EURIDIS nous pose ensuite une 
série d’interrogations complé- 
mentaires en prévision de l’ave- 
nir : 


1. SORTIE AUTORISEE (O ou 
N): si vous choisissez “O”, 
l'élève qui aura franchi les ques- 
tions précédentes pourra, à cet 
endroit, quitter lbréraent le 
didacticiel en frappant la touche 
4RAZ”. EURIDIS-élève lui pro- 
posera de consulter le bilan de 
son travail. S'il est amené à 
retravailler sur ce didacticiel, 
dès le départ, le Système, qui 
lui demande de déclarer son 
identité, le reconnaîtra grâce à 
notre option (‘réponses mémo- 
risées”) et lui proposera de 
recommencer dès le début ou 
de reprendre son cheminement 
là où il l’avait abandonné par 
“sortie autorisée” ; dans ce der- 
nier cas, compteur, score, 
réponses se remettront en place 
automatiquement. 


2. CACULETTE  AUTORISEE 
(O ou N) : ici, nous nous en 
passerons aisément. 


3. ITEM DE SUITE (si réponse 
vide) : frapper “ENTREE” systé- 
matiquement, relève chez 


l'élève d'un comportement bien 
particulier. EURIDIS en tient 
compte et nous propose de réa- 
gir en conséquence. Ici, nous 
l'enverrons au Commentaire 
N°15 du Bloc N°10, car il y a 
fort à parier que nous n’aurons 
pas besoin des 15 Commentai- 
res (correspondant à 15 Répon- 
ses-types) pour analyser une 
Question aussi simple que celle 
de ce Bloc... 


De retour au menu, il est temps 
de prendre ses responsabilités 
et d'engager sérieusement la 
prévision des Réponses-types. 
En fait, une telle situation cache 
au moins trois familles de répon- 
ses : 

— comment : c'est-à-dire 
avec quel comportement : en 
regardant ou non, en courant 
ou en marchant, etc. 

— quand : feu vert ou rouge, 
agent qui autorise la traversée 
ou non, etc. 

— où : dans les passages clou- 
tés, aux feux, etc. 


La première  Réponse-type 
pourrait être rédigée ainsi: En 
regardant OÙ en faisant atten- 
tion OÙ en étant prudent. Et 
serait suivie d’un commentaire 
laudatif, tandis que la seconde 
Réponse-type traiterait les dan- 
gers à part : En courant OÙ en 
jouant OÙ au petit bonheur la 
chance. Et donnerait lieu à un 
autre commentaire, beaucoup 
plus critique. 


Mais, ce serait doublement 
manquer de réalisme. D'une 
part, il y a peu de chances pour 
qu'un élève réponde précisé- 
ment en ces termes : le simple 
fait qu’il réponde à la première 
personne (“je suis prudent” par 
exemple) ou qu'il commette 
une faute d'orthographe (“pru- 
dant” !) suffirait à mettre en péril 
la reconnaissance de la confor- 
mité de sa réponse. 


D'autre part, EURIDIS permet 
de tester l’absence d’un élé- 
ment : le symbole * précédant 
un terme exigera qu'il ne figure 
pas dans la réponse fournie 
pour qu'elle soit considérée 
comme exacte. 


(A suivre.) 


POUR RECEVOIR 
AVANT LES AUTRES 


E° 


= 1 














répondre plus vite au TEOfuns, 
découvrir rapidement les TEOtrucs, 
profiter le premier des TEOtests 


abonnez-vous 


CONDITIONS D’ABONNEMENT 


nnenenide AUMÉIOS a un oi in tient, 300 Frs (Etranger 400 Frs) 
PTE Mahé CR ON ET SAR RE EE Rte 150 Frs (Etranger 200 Frs) 


REASSORTIMENTS DES ANCIENS NUMEROS 
N.B.- Seuls les numéros 6,7,8,9,10,11,12,13 sont encore disponibles. 
1 numéro: 15 Frs ; 8 numéros : 30 Frs; la collection complète : 100 Frs 












BULLETIN D’ABONNEMENT 


UI, je désire m'abonner à TEOphile : 
CO Six numéros au prix de 150 Frs (pour l'étranger 200 Frs) 
(Par avion, nous consulter) 


[ Douze numéros au prix de 300 Frs (pour l'étranger 400 Frs) 
(Par avion, nous consulter) 


Je vous adresse ci-joint mon règlement, par chèque à l'ordre de TEOphile, 


NOM Prénom 
Adresse 








Bulletin à retourner sous 
enveloppe affranchie avec 
votre chèque à : 
TEOphile 
Service Abonnement 
81, cours Juilliottes 
94703 Maison-Alfort Cédex 





Code postal Ville 
TEO 2 











Grammaire, 
comme vous 
avez de beaux 
compléments 


Avec un titre pareil, on s'attend 
au mieux et on n'est pas déçu. 
Voici un logiciel en deux parties 
qui doit retenir l'attention des 
enseignants ou des parents qui 
veulent faire réviser des notions 
de grammaire. La première par- 
tie est consacrée à la connais- 
sance de 
phrase et aux termes de la gram- 
maire. Pour cela, le logiciel per- 
met à l’enfant (à partir de 8 ans) 
de construire une phrase avec 
plus de cent millions de possibi- 
lités, c’est dire la diversité et le 
caractère insolite de certaines 
constructions. 


L'initiative est totalement laissée 
à l'élève et les choix des grou- 
pes de mots se font à l’aide du 
crayon optique. Après cette 
phase de construction, il est 
possible de permuter les grou- 
pes et ceci fait découvrir les 
possibilités de changement d’or- 
dre. Après cela, l'enfant est 
interrogé sur la reconnaissance 
des fonctions des groupes de 
mots. C’est alors une véritable 
analyse qui doit être menée. Les 
résultats, hrases construites et 
nombre d'erreurs, sont affichés 
en fin de travail. L'originalité des 
phrases que l'élève peut cons- 
truire, facilite certainement l’ac- 
quisition de ces notions de 
grammaire. 


La deuxième partie du logiciel 
porte sur l'étude de la nature 
des mots. Pour cela le pro- 
gramme est composé de deux 
arties. La première est une 
eçon de grammaire avec pré- 
sentation des notions de déter- 
minant, de nom commun, de 
verbe et d’adjectif qualificatif. 
Cette première partie est surtout 
didactique avec, en fin de pré- 
sentation, deux contrôles pour 
s'assurer que les notions ont été 
acquises. 


la structure de la. 


Dans la deuxième partie, l’en- 
fant devra proposer la construc- 
tion d’une phrase dont les mots 
sont choisis au hasard par le 
programme. Il en aura la totale 
responsabilité et devra donc 
s'apercevoir de certaines absur- 
dités. Tout l'intérêt du logiciel 


est dans cette prise d'initiative - 


par l'élève. Un contrôle com- 
plète la construction. L'enfant 
devra retrouver la riature des 
mots qui composent sa phrase. 
Ces deux programmes sont par- 
ticulièrement bien pensés et sur- 
tout leur réalisation est superbe. 
Faciles à utiliser et bien docu- 
mentés, les programmes attei- 
gnent leurs objectifs d'appren- 
tissage sans être ennuyeux. Il 
faut également souligner la pré- 
cision de la documentation 
d'accompagnement. On peut 
souhaiter que tous les didacti- 
ciels aient la même qualité. 


PLAY JEUX 
À À À 


Le géomètre 


Ce logiciel éducatif a pour 
objectif de couvrir le pro- 
gramme de géométrie de la 


classe de cinquième. 


Pour cela il se présente sous la 
forme de neuf modules qui doi- 
vent couvrir l’ensemble des 
notions à acquérir en géométrie 
dans cette classe. Dans ces neuf 
modules, on trouve la mesure 
des longueurs avec des exem- 
ples et des exercices visuels 
d'évaluation, le calcul des surfa- 
ces usuelles avec présentation 
des formules, puis exercices. 


Le module suivant porte sur le 
cube et son volume et l’auteur 
résente un développement de 
a surface du cube par une ani- 
mation bien conduite. Le qua- 
trième module aborde la 
mesure des volumes usuels 
(cube, pyramide, sphère, cône, 
etc.) avec, pour chacun des 
volumes, les formules et des 
exercices. 


la trioune 
du diaacticiel 


Pour s'initier à l'orientation dans 
le plan, le module suivant pro- 
pose un jeu de labyrinthe dans 
lequel l'élève devra retouver la 
sortie en utilisant sa mémoire et 
en choisissant les bonnes direc- 
tions dans une représentation 
en perspective avec l’aide d'un 
plan. Des questions sur les plans 
et les droites augmentent ou 
diminuent son capital de points 
de vie. 


Les deux prochains modules qui 
figurent dans cette progression 
portent sur le repérage, d’abord 
sur la droite puis sur le plan. Ils 
sont illustrés par des petits jeux 
de repérage. Enfin, les deux der- 
niers modules sont consacrés 
respectivement aux translations 
et aux rotations. Les deux 
notions sont illustrées par des 
jeux avec une présentation 
préalable des définitions et des 
notions à utiliser. 


Tout ce logiciel, aux objectifs 
ambitieux, doit permettre d’ap- 
prendre les notions de géomé- 
trie du programme de cinquiè- 
me. L'animation et les illustra- 
tions paraissent bien pensées. Il 
reste aux enseignants à dire s'ils 
peuvent trouver une aide effi- 
cace à leurs cours dans ce type 
de logiciel. 


EDIL BELIN 


À À À 


A.E.L. 


Voici la livraison numéro 0 d'un 
journal sous forme de cassette 
contenant une série de pro- 
grammes à vocation pédagogi- 
que. 


L'idée de base est simple : une 
série d'outils pédagogiques est 
publiée régulièrement avec 
diverses rubriques (élèves, 
enseignants, lecteurs). Dans ce 
numéro, on trouve au sommaire 
sept programmes à vocation 





diverse. Dans le dossier élèves, 
programmes pour le primaire et 
deux programmes pour le collè- 


ge. 


Le premier logiciel propose, 
selon trois vitesses, des mots à 
lire le plus vite possible et à 
réécrire immédiatement. Il est 
destiné à renforcer les connais- 
sances en orthographe. Le 
deuxième logiciel est lui consa- 
cré à l'apprentissage du clavier 
de l'ordinateur et à l’usage de 
tous les doigts des deux mains 
pour taper sur le clavier. Plu- 
sieurs idées de représentation 
des mains et des doigts permet- 
tent une progression efficace. 
Ensuite, le lecteur (en l’occu- 
rence de cassette) trouve un 
programme de révision de la 
règle des participes passés avec 
contrôle des connaissances, 
puis un programme d'anglais sur 
la différence entre présent sim- 
ple et présent continu. 


Le gros avantage de ces quatre 
didacticiels est leur ouverture 
aux modifications par l'ensei- 
gnant qui adaptera, améliorera 
ou complètera les programmes 
proposés. Ceci est tout à fait 
possible puisque les program- 
mes ne sont pas protégés et que 
le livret d'accompagnement 
donne toute précision pour réa- 
liser les modifications. Parmi les 
trois autres programmes, deux 
sont des utilitaires (aide à la défi- 
nition de caractères graphiques 
et douze modules de traitement 
de chaînes de caractères) et 
enfin un jeu de mémoire et 
d'observation. 


L'ensemble des outils pédagogi- 
ques rassemblés représente une 
bonne initiative et on peut sou- 
haiter longue vie à cette idée. Il 
faut simplement faire remarquer 
que la couverture de jaquette 
est parfaitement déroutante car 
elle représente des exercices 
bien complexes sans aucun rap- 
port avec le véritable contenu 
de la cassette. 


NOLPA EDITION 


À À À 





la Éribune 


du diaacticie 


Témoi 


Un passage de la “tribune” du Not attire mon attenti 


gnage 


#1 ne faut pas que le spécialiste de l’éducation s’improvise aussi professionnel de la programmation et les 
éditeurs de logiciels doivent lui permettre d'utiliser la puissance d’un ordinateur sans AUCUNE difficulté”. 


Ma lettre pourrait s'’intituler : 
Lettre à TEOphile ou les tribulations d’un LOGO (+) phile. 


Mon cher TEO, 


J'étais bien content quand j'ai 
reçu ma “valise”: comme 
c'était juste après Noël et que 
j'y ai trouvé LOGOPLUS, je me 
suis dit que c'était quand même 
un chic type. Hélas ! Trois fois 
hélas ! Mon jouet tout neuf est 
cassé. Mais il faut que je te 
raconte. 


D'abord il faut que tu saches 
que LOGOPLUS c'est LOGO 
1.Q (celui qui marche sur TO7 
et sur MOS5) plus des tas de 
primitives utiles pour s’en servir 
sur le réseau (y a même SAU- 
VEIMAGE pour faire des copies 
d'écran. Ca c'est chic parce 
qu'ils nous avaient oublié 
jusqu'ici, même qu'on devait 
garder un poste en Basic et faire 
un CLONE comme ils disent 
pour en avoir une, et puis y a 
aussi la possibilité de s'envoyer 
des messages de poste à poste) ; 
et puis c'est Logo sur la tête de 
réseau. Alors là quelle aubaine : 
utiliser la puissance : mettre un 
Turbo dans le moteur, tu parles 
si j'en bavais d'envie de l’es- 
sayer. 


Premier essai sur un réseau BM 
30 et MOS : dès que tu appel- 
les l'EDITEUR tu n'as plus la 
main. Tu recommences en fai- 
sant juste un petit truc pour voir 
(POUR CARRE, pour pas chan- 
ger quoi !) et tu appelles CARRE. 
Réponse “erreur : pas d'espace 
graphique”. Bon! Patience ! 
Voyons sur les MOS5. Tiens le 
menu est changé. Il y a cin 

rubriques au lieu de 4. Norma 
la cinquième c’est LOGOPLUS. 
C'est parti ! … Erreur au charge- 
ment. Et pourtant j'ai bien mis 
ma RAM. Ca dure un bon 
moment et puis j'abandonne. Je 
suis tellement pas content que 





je leur écris (à ACT Informati- 
que). 


Ca c'est des gens sérieux ! Par 
retour de courrier j'ai une 
réponse : “Nous avons bien 
reçu votre courrier.Presque 
tous ces problèmes ont une 
même origine : La version du 
réseau dont nous disposions 
pour le développement était 
NR31. En principe la disquette 
contenant LOGOPLUS aurait dû 
par la suite être installée avec la 
nouvelle version du réseau, ce 
qui n’a malheureusement pas 
été fait”. 


Donc il faut installer LOGO- 
PLUS avec NR33. Allons-y ! 


Re-essais. Sur le BM3@...c'est 
la même chose. Par contre sur 
le MO5, ça marche..sauf la 
copie d'écran (Sauveimage). 


Comme je peux voir ailleurs, 
j'emmène ma disquette et j'es- 
saie sur: Logabax P 16OO, 
TRIUMPH ADLER TA 59, IBM 
PC, LEANORD SIL'Z 16. 


Avec eux..ça marche. Alors 
pourquoi pas mon BM 30 ? Je 
vais voir chez Bull. Peut être 
que je sais pas le faire marcher 
mon serveur. Eux, ils me diront 
ce qu'il faut faire ; Eh bien ! 
c'est tout vu, chez eux non plus 
ça ne marche pas. Tant pis! 
Puisque j'ai LOGOPLUS sur les 
MOS5 contentons nous de cela 
pour l'instant puisque Act Infor- 
matique annonce qu'on va 
échanger ma disquette. 


Bon, j'essaie tout. Ca a l'air de 
fonctionner. Essayons Sauvei- 
mage. Le fichier se crée norma- 
lement. RS de Ver se met en 
route ! !! Alors là surprise ! Ya 


rien que des ddddd… sur le 
papier et si je l'avais pas arrêtée 
mon imprimante elle aurait 
continué jusqu’à ce qu'il n’y ait 
plus de papier ! 

Continuons les essais. Essayons 
voir de “ramener” des program- 
mes créés sous Logo 1.9, et 
tout et tout ! 


Alors je me dis : Act Informati- 
M ils sont sérieux, ils répon- 
ent aux lettres. je leurs écris 
tout. Et ils me répondent. Je 
t'envoie d’ailleurs une photoco- 
pie. 
Mais que je te dise : 
1-Chez Bull, ils ont fait des 
bonds haut comme ça. Qu'on 
leur dise que leur carte graphi- 
que n’est pas compatible PC, ça 
j’zont pas aimé ! 
2-La nouvelle version de 
LOGOPLUS va être distribuée 
et “va résoudre les problèmes 
d'impression” (donc y en avait 
!) mais, là ils me parlent d’im- 
primer du texte et moi je leur 
demandais d'imprimer l'écran ! 
3 - Je suis peut-être pas fort mais 
jusqu'ici j'ai pas mis le nom 
d'une primitive à un fichier. Et 
puis la disquette que j'ai essayée 
c'était celle en Logo de la valise. 


Alors voilà. Je t'ai tout raconté 
(enfin ! fee tout. Je n'ai pas mis 
le détail des termes techniques 
pour pas que tu t'ennuies). 


Et moi je suis là avec mon beau 
jouet qui marche pas. 


P.M Guibert 


L'informatique et l’école 
vous concerne 
Faites le nous savoir ! 
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EXCLUSIF 


Avoir 10 touches de fonction 
dont on se sert sous Paragra- 
phe et pas en Basic, c’est 
une lacune, voire une faute. 
TEOphile vous propose d'y 
remédier par un utilitaire 
facile à employer et court à 
saisir. 

Grâce à ce programme, les touches de 
fonction sont validées avec des mots- 
clés du Basic, à la manière de l'IBM PC. 
Pour obtenir ce résultat, taper le pro- 
gramme Basic et le sauvegarder sous le 
nom auto.bat. En principe, ce pro- 
gramme marche sous les deux Basic. Il 
arrive parfois qu'avec le Basic 128, il y 
ait des problèmes. Activer alors une fois 


ce programme sous Basic 1@ par E, 
revenir au menu principal et faire D. 


caractères affectée à chacune des tou- 
ches. Ainsi, si vous désirez que la touche 
1 ne fasse plus un LIST mais un PEEK(, 
remplassez 4C4953540D par 5045455928 
et ainsi de suite. De même, la fonction 1 
fait un LIST+entrée, on peut faire un 
LIST+espace pour n'avoir qu'à complé- 
ter par les numéros de lignes pour un 
listage partiel. 


Commentaires du 


listing assembleur 


DF79-DF81 : buffer clavier. 
DF82-DFB3: table des chaînes de 
caractères affectées aux 10 touches. 
FB4-DFEB8 : traitement de la touche. 
DFB4 : routine clavier “personnalisée”. 
DFB7 : est-ce la touche F1 qui a été 
frappée ? 
DFB9 : si le code est inférieur, on négli- 


DFC3 : X pointe sur le début de la table. 
DFC6 : on transforme le code touche en 
un nombre entre 0 et 9. 

DFCB8 : longueur standard de la chaîne 
affectée à une touche. 

DFCA : on actualise le pointeur d'écritu- 


re. 
DFCD-DFCE : on calcule l'adresse de 
la chaîne correspondante à la touche 
que l'on met dans X. 


DFCF-DFD4: on substitue au buffer 
standard, le nôtre. 
DFD5-DFDD: on transfert la chaîne 


dans le nouveau buffer. 

DFDE-DFES5: on actualise le pointeur 
de lecture clavier en mettant dans B la 
valeur du début de buffer. 

DFE6-DFEB8 : retour au Basic. 
DFE9-DFFA : installation de l'intercep- 


tion. 
DFE9-DFEE : actualisation de l'adresse 
(indirection) de GETCH. 


ge. DFEF-DFF4 : remplacement par la 
Û . STE 9 nôtre. 

Personnalisation ee SRE PER on  DFF5-DFF9: actualisation de la longeur 
Après les 18 premiers zéros, représenta-  néglige. du buffer. 
tifs du buffer clavier, il y a une table de  DFBF : sauvegarde des registres. 
50 octets qui donne la chaîne de 5  DFC1:oninhibe les interruptions. 

10: ? TOUCHES 

20 CLEAR., HDF78 

30 DEEH=£%HDF79 

40 FOR 1=1 TO 2 

50 READ A$ 

60 FOR J=1i TO LEN(AS)182 

70 XS=MIDS (AS, (J—-1) X2+1,2) 

80 POKE DEB, VAL("®&H"+X$) : DER=DER+1 

90 NEXT:NEXT 

100 EXEC £SHDFE9 

110 DATA"0000000000000000004C4957540D505 

2494E54444952200D4C4F41442253541564522525S 

94E200D45:4C535200D494E505554494E4R45594E4 

939/72020BD00000C190252D0C199222934531ASO08ED 

F82C09086058760673D%IACEDF79FF6079C605A68 

OA7CO0S5A26" 

120 DATA"F98601H760SEF6DF7955533:9FC600AF 


DDFRSCCDFEB4FD600A8606B7607R39" 
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TITLE TOUCHES DE FONCTIONS 
' 
*FFOGRAMMATION DES TOUCHES DE FONCTIONS 
*{C)} TEOphile MAI 86 
000D RET Eau $OD 
600 VGETC EQU +600 
60$E READCL EQU $60SE PTR LECT BUF CLAV 
6067 WRITCL EQU $6067 FTR ECRI BUF CLAV 
607°® BUFCLV EQU 56079 PTR VERS BUF CLAV 
607E SIZCLY EQU +607B LONGUEUR BUFFER 
9090 F1 EQU $90 
0099 F10 EQU F1+9 
DF79 ORG sDF79 
*YEPEUFFER CLAVIER 
DF79 BUFCLA RME 6+3 
*TEXTE DES TOUCHES FAISANT 5 CAR EXACTMT 
DF82 4C 49 57 54 TEXTE FCC "LIST? 
DF86 O0D FCE RET 
DF87 50 52 49 4€ FCC * PRINT” DFDY A7. CO STA bé 
DFS8E 54 DFDE SA DECB 
DF8C 44 49 52 20 FCC OUR LT DFDC 26 F9 BNE Li 
DF90 OD FCEB RET DFDE 86 o1 LDA #1 
DF91 4C 4F 41 44 FCC *LOAD"”° DFEO B7 60SE STA READCLVU 
DF95 22 DFES F6 DF79 LDE BUFCLA 
DF96 53 41 56 45 FCC "SAVE"? DFEé 35 53 PULS A, X.U,CC 
DF9A 22 DFES 39 EJECT RTS 
DF9R 52 55 4E 20 FCC "RUN ” DFE9 FC 600A DEBUT LDD VGETC 
DF9F OD FCB RET DFEC FD DFES STD INGET+1 
DFAO 43 4C 53 20 FCC SELS: ? DFEF CC  DFB4 LDD #CRGETC 
DFA4 OD FCB RET DFF2 FD 600A STD VGETC 
DFAS 49 4E 50 55 FCC * INPUT” DFFS 86 06 LDA #6 
DFAS 54 DFF7 B7 607B STA SIZCLV 
DFAA 49 4E 4B 45 FCC ? INKEY” DFFA 39 RTS 
DFAE 59 DFE9 END DES8UT 
DFAF 4E 45 57 20 FCC : "NEW ” 
DFBZ 20 FCE 32 00000 Total Errors 
*TRAITEMENT DE LA FRAPPE DE F1 a F10 
DFE4 CRGETC 
DFE4 ED 0000 INGET JSR >#0000 
DFE7 C1 90 CMPE #F1 
DFE9 25 2D ELO EJECT 
DFBB C1 79 CMPFE #F10 
DFED 22 29 EHI EJECT 
DFEF 34 33 PSHS X,U,A,CC 
DFC1 1A 50 ORCC #$50 MASQUE INTERRUPT 
DFC3 SE DF82 LDX #TEXTE 
DFCé CO 90 SUBE #F1 
DFC8 86 05 LDA #5 L 
DFCA B7 6067 STA WRITCLV 
DFCD 3D MUL 
DFCE TA AEX 
DFCF CE DF79 LDU #BUFCLA 
DFD2 FF 6079 STU BUFCLV 
DFDS C6 05 LDB #5 
DFD7 A6 80 L1 LDA sX+ 





Qui était passionné 
par les nénuphards ? 
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Logiciels 


La SIMIV nous communique la liste des logiciels disponibles sous forme de disquette 3, 5 pouces pour le TOS et pour les éditeurs 


Coktel Vision, Free Game Blot, Infogrames et Loriciels. 


Coktel Vision 


Cap sur Dakar (disponible) 
Malédiction de Thaar (disponible) 
Kronos (disponible) 

Phantom City (ler mai) 

Ballade au pays de Big Ben (15 mai) 
Ballade outre-Rhin (15 mai) 


Free Game Blot 


Budget familial (disponible) 
Coloric (disponible) 

Trésor du pirate (disponible) 
Une affaire en or (disponible) 
Monopolic (disponible) 

Loto (disponible) 

Tigres et chèvres (disponible) 
Mille bornes (disponible) 
Pascal (disponible) 


SOS j'apprend le morse (disponible) 
Histoire de théatre (disponible) 
Romulus Rome et moi (disponible) 
Cuisine française (disponible) 
War Game (disponible) 

Jeu de marelle (disponible) 

Bugs buster (disponible) 

Cartoon maker (disponible) 

Blue war (ler mai) 

Mission très possible (1er mai) 
Pack gestion 2 volumes (ler mai) 


Infogrames 


Geste d'Artillac (disponible) 
Mandragore (disponible) 

Omega planète invisible (disponible) 
Thème astral (disponible) 

Affaire Vera Cruz (disponible) 
Sortilège (disponible) 


Karaté (disponible) 

Dieux du stade (disponible) 
Las Vegas (disponible) 

Ass desass (ler mai) 


Loriciels 


Yéti (disponible) 

Puilsar 2 (disponible) 
Aigle d'or (disponible) 
Coliseum (disponible) 
Oceania (disponible) 
Soleil noir (disponible) 
Air attack (disponible) 
Mon général (disponible) 
Space shuttle (disponible) 
5 ème axe (disponible) 
Empire (ler mai) 

CAO (ler mai) 

Forth (ler mai) 

Rodeo (ler mai) 


Un socle 


Si vous avez un moniteur couleurs référence MC9Q-036, vous pouvez disposer d'un 
socle orientable au lieu de le poser sur le capot de l'unité centrale. Il existe en blanc 
ou en gris et coûte 120 F (prix public maximum conseillé) Référence BS99-36Q (gris) 
et BS99-369 (blanc). 





CLICHÉ THOMSON - Michel MATHIEU 


EXTRAIT D 


CANDI 


CARTE ANAIOGIQUE DIGITALE 


U CATALOGUE 





LT de l'informatique dans les 
écoles change la méthode d'ensei- 
gnement. Les sciences physiques n'y échap- 


Fe pas, LANGAGE ET INFORMATIQUE 
e sait et y participe. 
Avec CANDI, 


CAND VOUS POUVEZ 


relier votre ordinateur au monde extérieur 
et le transformer en voltmètre numérique, 
oscilloscope numérique, contrôleur de 
température ou de chaîne HIFI par exemple. 
Vous pouvez également effectuer des expé- 
riences d'électronique, de physique, de 


chimie. 390 F TTC 


CHARGE ET 


DECHARGE 490 rrrc 





DIPOLE 490 F TTC 
RLC 
RESONNANCE 490 F TTC 





RLCÇ 
CIRCUIT OSCILLANT 490 F TTC 


PK 490 F TTC 





harge et décharge, Dipole, RLC 
résonnance, RLC circuit oscillant et 
PH, sont des softs utilisables sous CANDI. 
Les cinq softs peuvent être vendus ensemble 
avec une remise appréciable : 
1 425 F TTC 
La valise CANDI + les cinq softs : 


2 700 F TTC — 
Ed 
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Cap sur 
Dakar 


Patience 
et longueur 
de temps 


A vrai dire, je ne connais 
pas personnellement les 
joies du rallye Paris- 
Alger-Dakar, mais j'ose 
espérer qu'il n’est pas 
aussi ennuyeux que ce 
logiciel. Libre à vous de 
tenter l’aventure mais je 
ne peux pas, en toute 
honnêteté, vous promet- 
tre frissons et exotisme. 
Tout au plus, il vous 
demande de la patience 
(chargement à n’en plus 
finir). 


Mais, venons-en au fait. 
Le jeu se déroule en trois 
parties : recherche des 
sponsors, achat de maté- 
riel et course proprement 
dite. Après environ dix 
minutes de chargement, 
on vous propose dix 
sponsors qui vous deman- 
deront chacun une 
épreuve particulière. Ici, 
vous pensez que com- 
raence un petit jeu 
d'aventures sympathiqu:=. 
Pas du tout! Chaque 
épreuve est en fait consti- 
tuée d’un casse-tête du 
style test psychotechni- 
que d'embauche. C’est à 
croire que, pour obtenir 
un sponsor, on vérifie 
bien que vous n'êtes pas 
le dernier des abrutis ! 
Bonjour tristesse. 


Rechargement pendant 
approximativement le 
même temps. Il vous faut 
maintenant choisir votre 
véhicule parmi cinq : de 
la berline de base au 
camion tout terrain. Le 
sponsor ayant fixé votre 
capital, à vous de le 
répartir au mieux dans 
l'achat du véhicule, le 
carburant, les pièces 
détachées et les vivres. 
Enfin, vous prenez la 
route. 


Les graphismes sont dou- 
teux et les étapes toutes 
identiques, si ce n’est par 
quelques détails de la 
rare flore environnante. 


Ce logiciel est à mon 
humble avis le type même 
du jeu où l’on s'ennuie 
du début à la fin. Alors, 
jouer pour s’ennuyer…. 
quelle tasse ! 


COKTEL VISION, 
MOS5 et TO7 
(Cassette) 


À À À 
3: 

Coq'inn 

Le théâtre des opéra- 
tions : un poulailler. Les 
acteurs : coq, poule et 
divers rongeurs ou repti- 
les. Une fois le décor ra 
bien dit le décor) planté, 
passons à l’action ou du 


moins essayons d’aider le 
coq dans sa mission. 


Au fait, j'ai oublié de 
vous dire que le thème 
du jeu (en l’occurence de 


logiciels 


l'amour et parfois du 
hasard) c’est d’essayer de 
faire le maximum de 
points en défendant le 
poulailler, de prendre des 
forces en picorant (j'ai 
pas dit picolant) et sur- 
tout d’être toujours en 
forme pour honorer le 
plus et le mieux possible 
une petite poulette fort 
gironde. Même pour un 
coq de grand charme 
(Chambertin, parfois), la 
tâche est bien difficile. 


Ainsi, après des étreintes 
passionnées bien que dis- 
crètes, on voit la poule 
sortir furieuse, agitant 
son délicieux croupion et 
vous intimant l’ordre de 
recommencer. Il faut, en 
effet, savoir combiner 
durée et fréquence pour 
améliorer le score. Pen- 
dant ces instants délicieux 
(reproduction oblige), les 
rats, les belettes et autres 
couleuvres envahissent 
votre nid d'amour et 
volent les oeufs pénible- 
ment conçus. Il vous faut 
alors savoir vous défen- 
dre avec bec et ergots. 
Tout cela est bien épui- 
sant et si vous savez 
arranger tout cela, vous 
aurez peut-être la chance 
d'inscrire votre nom au 
tableau d’honneur des 
Don Juan de basse cour. 


Cog'inn c’est coquin, 
mais pas trop. Les étrein- 
tes sont bien dissimulées 
derrière ce rideau orné 
d’un coeur. Le logiciel, 
dénommé jeu d’action, 
est d’assez bonne couvée. 
Avec un peu de pratique, 
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on améliore son score et 
ses performances. C’est 
une bonne initiation au 
maniement du “joystick”. 


VIFI 
INTERNATIONAL 


À À A 






TELEPORTEUR 


3 D Fight 


Un jeu intergalactique 
avec vaisseau truc machin 
et des ennemis plein l’es- 
pace. Ce jeu d’arcade uti- 
lise une représentation 


graphique évoluée. 
Comme son titre l’indi- 
que, il s’agit d’un jeu en 
trois dimensions avec des 
représentations  graphi- 
ques saisissantes et une 
dynamique réaliste. Le 
thème compte finalement 
assez peu. On peut quand 
même dire que vous êtes 
pilote d’un intercepteur 
inter- stellaire avec pour 
mission de détruire des 
ennemis bien agressifs. 


Ce qui caractérise ce jeu, 
c'est la simplicité des 
commandes et l’absence 
de mode d'emploi. Ce 
n’est pas une lacune. Il 
suffit de pointer le scan- 
ner sur une zone à explo- 
rer et de s’y diriger par 
téléporteur ou de s’enga- 
ger dans un hyper-espa- 
ce. Il faut beaucoup 
d'adresse pour décoller 
du score nul, d’autant 
que les engins ennemis 
vont vraiment très vite, 
aidés par une program- 
mation efficace. 


Pour ce type de jeu, on 
ne peut que recomman- 
der de le découvrir et 
admirer la réalisation. 


LORICIELS 


A A 
Maximage 


Maximage est un généra- 
teur automatique d’ima- 
ges et de programmes 
spécialement destiné aux 
micros de la gamme 
Thomson. Il se présente 
sous la forme de deux dis- 
quettes, l’une de pro- 
gramme et l’autre de 
démonstration. Maxi- 
mage est capable de créer 
des graphiques, des ima- 
ges animées, des illustra- 
tions ou toutes autres 
représentations  graphi- 
ques sans avoir à les pro- 
grammer en Basic. Ce 
sont plus de 180 fonctions 
qui sont mises à la dispo- 
sition du programmeur 
ou plutôt du réalisateur 
car aucune connaissance 
en informatique n’est 
nécessaire pour utiliser ce 
logiciel. L'outil de base 
est le crayon optique et 
ceci aussi bien pour les 
images que pour les pro- 
grammes. Tout ceci est 
activé à partir d’un menu 
général avec une option 
de préparation d’une dis- 
quette utilisateur et le 
programme Maximage. 


Pour la création des ima- 
ges, c’est un système de 
pictogrammes qui a été 


LE LOGICIEL POUR FAIRE VOS LOGICIELS 


Vous pouvez désormais 
créer vos logiciels 

pour vos élèves sans 
formation préalable 

à un système informatique. 


sur 
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choisi. L'utilisateur crée 
son image en disposant 
d’une grande variété de 
fonctions (décalages de 
zones, copies, retourne- 
ments, suppressions, tra- 
cés de cercle ou de droite 
etc.). Dans un premier 
écran, sont dessinés les 
éléments graphiques de 
composition de l’image. 
Dans l'écran suivant, ce 
sont les images qui sont 
élaborées avec définition 
des couleurs, des tailles 
et des positionnements. 


Chaque image reçoit un 
numéro qui la caractérise 
ensuite. Le troisième 
écran est destiné à la 
fabrication des textes qui 
pourront défiler vertica- 
lement ou horizontale- 
ment. Les caractères gra- 
phiques définis par lutili- 
sateur pourront être utili- 
sés. Le dernier écran est 
consacré au générateur 
de programme qui offre 
23 instructions. Tout le 
travail effectué est facile 
à sauvegarder pour être 
utilisé ensuite directe- 
ment.Maximage permet 
de faire beaucoup de cho- 
ses en graphique. Il ouvre 
la possibilité d'utilisation 
du micro à des non- spé- 
cialistes pour réaliser tou- 
tes sortes  d’images. 


L'emploi des pictogram- 
mes oblige à un appren- 
tissage sérieux et il appa- 
raît que le logiciel est par- 
fois un peu complexe à 
utiliser, d’autant que la 
documentation fournie 
est dense. C’est le prix à 
payer pour disposer d’un 
outil de création puissant 
et efficace. 


LANGAGE ET 
INFORMATIQUE 





7) logiciels 


Beach-Head 
“Son of A B...” 


Ah ! au fait, je vous l’ai pas dit : hier soir, j'ai vu 
Marcel. Sacré Marcel ! Depuis qu’il a découvert les 
micro-ordinateurs au foyer, on ne peut pas dire que le 
sien soit un modèle du genre. Sa femme, n’en pouvant 
vraiment plus de le voir s’exciter devant les clones de 
“Pac-Man“ et autres “Space Invaders”, lui a carré- 
ment interdit d'approcher sa machine à plus de deux 
mètres. Au début, je pensais que c'était juste une 
scène de jalousie de Monique, mais lorsque j’ai vu 
Marcel manger sa casquette simplement parce qu'il 
n’arrivait pas à battre le record du monde du saut en 
longueur des “Dieux du stade”, j’ai compris alors la 
gravité de son cas. Quand je lui ai ouvert ma porte et 
que j'ai vu son teint livide, j'ai même failli appeler le 
Docteur Olivenstein et S.O.S. Toxicomanie. Puis, 
pensant à son avenir, j'ai accepté, le temps d’une 
partie, de lui prêter mon TO7-70 devant lequel il 
bavaïit déjà. 


Après avoir mis en route le moniteur et la machine, 
ses yeux luisaient déjà de satisfaction et, d’un geste 
quasi frénétique, il appuya alors sur l’option deux : 
chargement d’un programme sur cassette. Il ne tenait 
plus en place et l’attente du chargement se transforma 
vite en une danse de Saint-Guy d’où il s’arrachait 
parfois pour poser quelques questions angoissées : 
“Tu crois qu'il va nous faire le coup de lI-O 
ERROR ?.” Son angoisse était d'autant plus grande 
que le logiciel, comme pour le narguer, n’afficha 
aucune page de présentation jusqu’au bout. Quand le 
programme démarra enfin, Marcel parut être soulagé 
de tous les malheurs du monde et commença son 
ouvrage. Je l’observai d’un oeil attentif. 


Il s'agissait apparemment d’un logiciel de type “War- 
games”, comme les appellent les Anglo-Saxons. Vu 
son degré d'intoxication, Marcel choisit sans hésita- 
tion le niveau difficile, malgré les deux autres niveaux 
de jeu. Les manettes n'étaient pas pour lui un élément 
indispensable, mais ajoutaient davantage encore à 
son plaisir. Il me proposa bien de faire une partie avec 
lui, car on pouvait jouer à deux, mais son excitation 
me fit craindre que cela ne tournât à l’échauffourée. Il 
commença donc son périple que je surveillais par-des- 
sus son épaule. 


Le but étant de débarquer sur une île pour délivrer le 
fort de Kuhn-Lin de méchants envahisseurs, la pre- 
mière épreuve consistait à franchir un détroit truffé 
de mines où fusaient les missiles. Pour accomplir la 
mission complète, la flotte comptait dix navires. La 
complexité de la chose n’admettait pas le droit à 
l’erreur.. Une fois le détroit franchit, je m’aperçus 
que, pendant que la fébrilité de Marcel s’estompait en 
une satisfaction béate, mes nerfs, eux, s’aiguisaient 
sensiblement. Je commençais donc, sur l’épreuve de 
combat aéro-navale, à prodiguer de plus en plus de 
conseils, allant même jusqu’à l’engueuler quand il ne 
m'écoutait pas. Il fallait descendre à la D.C.A. ces 
maudits zincs qui décollaient des vaisseaux ennemis, 





sans compter les hélicoptères. Vint alors le débarque- 
ment qui nous fournit des tanks pour rejoindre la 
forteresse : éviter les mines et pièges en tout genre et 
descendre l’ennemi, telle était notre devise. 


Ce jeu était un peu lent au niveau de l’animation 
graphique mais non moins passionnant. Enfin, nous 
attaquions l'épreuve finale. La forteresse était truffée 
d’envahisseurs : à nous de faire le ménage. Sous mes 
ordres, le canon de Marcel fit merveille et nous 
délivrâmes enfin l’île. 


Même si les graphismes pèchent un peu par la pau- 
vrété et si l'animation ne nous renverse pas pas terre, 
au premier coup de feu, je me surpris à demander à 
Marcel s’il voulait bien faire une partie avec moi. Lui 
semblait maintenant serein, comme s’il avait eu sa 
dose quotidienne d’adrénaline... Quant à moi, je 
jouais frénétiquement jusque tard dans la nuit, mais 
aujourd’hui, je jure, mais un peu tard, qu’on ne m'y 
prendra plus. 


FIL pour THOMSON MO5 - TO7/70 (cassette) 


TO7/70, MOS5, TO9 
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Au cœur 
des micro- 
ordinateurs 
MOS5, TO7, 
T07/70 








Par Jean-Claude 
Mariaccia 
& Olivier Savin 


Un livre technique 
copieux qui débute par 7 
applications pratiques 
avec les montages et les 
programmes. Vous pour- 
rez ainsi monter une 
interface Péritel-antenne, 
une boîte contenant un 
PIA supplémentaire, un 
afficheur et des diodes 
témoins, un analyseur 
logique, un diaporame 
programmé, une centrale 
d'alarme, un simulateur 
de présence pour dissua- 
der les cambrioleurs et un 
mini-caractor pour TO7 
et TO7-70. 


Une seconde partie 
aborde les données théo- 
riques minimales à 
connaître sur un micro- 
processeur, les mémoires 
et un système minimum. 


La troisième partie de ce 
livre de 300 pages est 
bourrée de renseigne- 
ments techniques sur les 
micros Thomson, en par- 
ticulier les composants 
principaux : microproces- 
seur, PIA et le 6846, l’ar- 
chitecture des trois 
micros et le fonctionne- 


ment des mémoires, etc. 
La dernière partie ren- 
ferme des utilitaires, une 
exploration de certaines 
fonctions et les schémas 


d’interconnexions. En 
définitive, un livre 
regroupant assez de ren- 
seignements pour explo- 
rer le côté technique de 
son micro avec des possi- 
bilités de réaliser quel- 
ques applications intéres- 
santes. 


CEDIC NATHAN 
À À À 


Trucs et 
astuces pour 
Thomson 
MO5 

et TO7-70 


Par F Haub 
et H-G RAUSCH 


Une traduction d’un 
ouvrage d’outre-Rhin 
très fouillé sur le Basic 
avec de très nombreux 
exemples. La partie MOS 
traite malheureusement 
du MOS E (Export) qui 
n’est pas tout à fait le 
MOS que l’on peut ache- 
ter en France. Ce qui 
conduit à se méfier, dans 
une certaine mesure, des 
trucs relatifs au hardwa- 
re. Le DOS est très bien 
détaillé. 


TRUCS ET ASTUCES 
POUR THOMSON. 
MO5 ET TO7-70 





On trouve également une 
simulation de sprites (lu- 
tins) permettant de réali- 
ser de belles animations 
en Basic et surtout en lan- 
gage machine. 


lorarie 





Comme plat de resistan- 
ce, trois logiciels sont 
proposés, listés, module 
par module, avec de 
copieuses explications 
pour bien comprendre. Il 
s’agit d’un traitement de 
texte avec certaines routi- 
nes en assembleur pour 
améliorer la vitesse, une 
gestion de fichiers com- 


‘plète et d'un échiquier 


Thomson qui remplace le 
tableau, les pièces, fait 
les mouvements avec le 
crayon optique et sauve 
les parties. Un livre 
contenant de quoi occu- 
per vos longues soirées 
de printemps. 

DATA BECKER 
(distribué par Micro 
Application) 


À À A 


Programma- 
tion en 
assembleur 
6809 


PROGRAMMATION 
EN ASSEMBLEUR 


BUI MINH DUC 


Par Bui Minh Duc 


Le livre de référence sur 
le sujet. Il est quasi indis- 
pensable pour qui veut se 
lancer dans la program- 
mation en assembleur 
6809. La description 
détaillée de toutes les ins- 
tructions est suivie d’un 
long développement sur 
les techniques élémentai- 
res de la programma- 
tion : opérations simples, 
boucles de comptages, 
fonctions de comparai- 
sons et d’identification, 
conversions multiples, 





calculs arithmétiques en 
multiprécisions. Un cha- 
pitre entier traite des 
techniques de transfert de 
paramètres aux sous- pro- 
grammes. 


Enfin les deux boitiers de 
base pour l’inferfaçage 
sont mis à nu : le 6821 et 
6850, ainsi que le système 
des interruptions. En 
résumé, un outil précieux 
pour suivre dans les 
moindres détails les pro- 
grammes publiés dans 
TEOphile et pour aller 
au delà. 


EYROLLES. 
À À A 


INTRODUCTION AUX 
PERIPHERIQUES 
D ORDINATEURS 


Introduction 
aux 
périphériques 
d'ordinateurs 


Par R.A. 
et J.W. PENFOLD 


S’il est vrai qu’un micro- 
ordinateur nouvellement 
acquis se trouve souvent 
dénué de tout périphéri- 
que, on s'aperçoit très 
vite qu’il faut entourer 
l'unité centrale pour pro- 
fiter au mieux de la puis- 
sance de l'ordinateur. 
Cependant, l'expérience 
montre que si l'acheteur 
connaît tout ou presque 
des unités centrales, les 
extensions possibles et 
leurs caractéristiques sont 
bien moins connues. 


Cet ouvrage, traduit de 
l’anglais, vient justement 
aider l'utilisateur à se 


faire une idée précise de 
la diversité des matériels 
qui accompagnent l’ordi- 
nateur, à savoir les péri- 
phériques. 


Il s’agit d’un ouvrage pra- 
tique où chaque chapitre 
est consacré exclusive- 
ment à un type de péri- 
phérique. Ainsi, succesi- 
vement, sont abordés les 
écrans, les imprimantes, 
les compléments du cla- 
vier, les supports exter- 
nes de données, les 
modems et enfin les inter- 
faces. Chaque type de 
périphérique est détaillé 
sans technicité excessive 
mais avec suffisamment 
de vocabulaire technique 
pour permettre au lecteur 
de se faire une idée pré- 
cise des caractéristiques 
et des fonctions de cha- 
cun des appareils. Mais, 
au contraire des descrip- 
tions parfois fastidieuses 
que l’on rencontre dans 
certains ouvrages, ce livre 
comporte de nombreux 
points pratiques rarement 
évoqués par ailleurs. 
Chaque chapitre est à 
jour des dernières nou- 
veautés (imprimantes à 
laser, écrans tactiles, sou- 
ris). Les passages consa- 
crés aux modems et aux 
interfaces sont particuliè- 
rement instructifs. 


Ce livre constitue donc 
un guide pratique parti- 
culièrement concis et pré- 
cis qui s’adresse tout à la 
fois aux futurs acheteurs 
de périphériques et qui 


tiennent à bien réaliser 


leurs achats, mais aussi à 
tous ceux qui voudraient 
faire le point sur l’ensem- 
ble de ces appareils. Ecrit 
dans un style très facile à 
lire, l'ouvrage aborde 
simplement des aspects 
techniques et fourmille 
de conseils pratiques. 
EDIMICRO 
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Activités 
Logo pour 
la classe S 


L'arrivée, certains diront 
l’intrusion, de l’ordina- 
teur dans la classe consti- 
tue sans doute un tour- 
nant dans l’évolution de 
la pédagogie et il n’est 
pas sûr que tous les ensei- 
gnants y soient bien pré- 
parés. 


Ce livre est tout particu- 
lièrement recommandé 
aux enseignants qui s’en- 
gagent avec les élèves 


dans “l'aventure de la 
programmation”. Pour 
celà, les auteurs ont 


choisi LOGO qui, actuel- 
lement, représente l’un 
des meilleurs choix de 
langage pour la décou- 
verte de la programma- 
tion par les enfants. 


savoir & savoir faire 
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ACTIVITÉS 
Ke'e'e 


POUR LA CLASSE 


Après des précisions sur 
la démarche pédagogique 
proposée, les auteurs 
proposent d’abord une 
série de fiches de décou- 
verte du matériel sur 
lequel les enfants vont 
programmer, de la mise 
en œuvre et des instruc- 
tions élémentaires de 
LOGO. Pour concrétiser 
tout cela, un exemple 
réalisé en commun est 
proposé. Toute cette par- 
tie de découverte et de 
prise en main est à cha- 
que fois précisée en tra- 





vail en classe et en aide à 
l'enseignant. Ensuite, 
c’est une série de 27 pro- 
positions de projets qui 
est offerte avec, en préa- 
lable, la description des 
types de démarche (ana- 
lyse descendante ou 
ascendante) et une pro- 
position d'organisation et 
de présentation. Ces pro- 
jets sont tous d’inspira- 
tion graphique et c’est 
toute la puissance péda- 
gogique de LOGO qui est 
exploitée : simplicité, 
facilité de décomposition 
(travail individuel, puis 


d'équipe), notions de 
répétition, d'évaluation 
immédiate. La fin du 


livre est consacrée à deux 
annexes pour mieux 
connaître LOGO et rap- 
peler quelques notions 
techniques  indispensa- 
bles. 


Globalement, ce livre a 
été bien pensé et l’expé- 
rience pédagogique des 
auteurs transparaît à 
l'évidence. On retrouve 
un ton de présentation 
bien caractéristique aux 
tendances actuelles de la 
pédagogie, mais il faut 
bien avoir à l'esprit que 
ce livre s'adresse d’abord 
aux enseignants des clas- 
ses élémentaires et que la 
précision des objectifs 
sera appréciée par les lec- 
teurs visés. 


CEDIC NATHAN 


144 
procédures 
utiles en Logo 


Ce livre constitue une boîte 
à outils pour les enseignants 
qui utilisent LOGO sur des 
micros Thomson. Il est 
directement destiné à enri- 
chir l'environnement de 
programmation par la pro- 
position de 144 procédures 
regroupées dans 14 domai- 
nes d'intérêt différents. 
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144 


PROCEDURES UTILES 


A\RKeICe) 





cannes 
cedicinathan 
CS 


Parmi ces domaines, on 
retrouve le graphisme, 
l’arithmétique,  l’exploita- 
tion de la mémoire, la ges- 
tion de l'écran, le traite- 
ment des objets (mots et 
listes), l'éditeur, les structu- 
res de contrôle, les structu- 
res de données, les tris, la 
logique, la saisie et les 
fichiers. Sans entrer dans le 
détail de toutes les procé- 
dures proposées, on peut 
citer le calcul d’exponentiel 
dans une base quelconque, 
la définition de caractères 
graphiques, la modification 
du contenu de l'éditeur, la 
réalisation des structures de 
contrôle nouvelles (FAI- 
RE. TANT QUE et 
TANT QUE... FAIRE), la 
création de tableau à deux 
dimensions ou encore l’ac- 
cès à un élément de liste 
par dichotomie. Pour cha- 
cune des procédures, les 
auteurs fournissent l’objet 
de la procédure, un exem- 
ple d'exécution, les objets 
utilisés, la liste des instruc- 
tions et des commentaires. 
Au-delà du caractère utili- 
taire de cette boîte à outils, 
il faut voir l'aspect forma- 
teur d’un tel ouvrage car 
chacun des programmes 
peut servir d'exemple pour 
la création d’autres procé- 
dures au moins aussi origi- 
nales. 


Le programmeur LOGO 
trouvera dans ce livre 
matière à enrichir Ja 
connaissance et la pratique 
de ce puissant langage de 
programmation. 


CEDIC/NNATHAN 
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